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程序 设计 是 高 等 学 校 计 算 机 基础 教育 的 基础 与 重点 ,目的 是 向 学 生 介 绍 程序 设计 的 基 
础 知识 ,使 其 掌握 高 级 语言 程序 设计 的 基本 思想 和 方法 ,培养 学 生 的 计算 思维 ,增强 其 用 计 
算 机 处 理 问题 的 能 力 。 

FORTRAN 语言 是 最 早出 现 的 计算 机 高 级 程序 设计 语言 ,其 发 展 过 程 中 不 断 吸收 现代 
化 编程 语言 的 新 特性 ,以 其 特有 的 功能 在 数值 .科学 和 工程 计算 领域 发 挥 着 重要 作用 ,并 且 
在 工程 计算 领域 占有 重要 地 位 ,很 多 优秀 的 工程 计算 软件 都 是 使 用 FORTRAN 语言 编写 
的 ,如 ANSYS、Marc 等 。 

基于 Windows 平台 下 的 FORTRAN90 的 推出 ,使 FORTRAN 真正 实现 了 可 视 化 编 
程 ,彻底 告 别 了 传统 DOS 环境 (命令 行 界面 ), 转 到 了 现代 Windows 环境 (视窗 界面 ) ,共享 
微软 公司 Windows 平台 的 丰富 资源 。 本 书 以 FORTRAN95 为 平台 ,重点 介绍 程序 设计 的 


本 书 以 程序 设计 为 主线 ,以 编程 应 用 为 驱动 ,通过 案例 和 问题 引入 知识 点 ,重点 讲解 程 
序 设计 的 思想 和 方法 ,内 容 全 面 ,概念 清晰 ,语言 简单 易 懂 ,实用 性 强 。 

为 使 读者 更 好 地 掌握 FORTRAN95 程序 设计 基础 ,我 们 还 编写 了 与 本 书 配 套 的 
《FORTRAN95 程序 设计 实验 指导 及 测试 》, 可 作为 学 习 参 考 书 。 另 外 ,还 有 与 本 书 配套 的 
电子 版 教学 课件 , 供 教师 教学 参考 使 用 。 

书 中 所 有 程序 实例 都 是 由 教师 在 多 年 授课 过 程 中 精 挑 细 选 所 得 ,并 采用 目前 流行 的 、 可 
视 化 的 Microsoft Develop Studio 集成 开发 环境 ,使 读者 在 程序 设计 的 思维 训练 和 程序 组 织 方 
面 得 到 极 大 简化 。 为 适应 不 断 更 新 的 计算 机 操作 系统 ,在 实验 教材 中 还 给 出 了 Windows 7、 
Windows 10 操作 系统 下 使 用 Visual Fortran 的 上 机 操作 过 程 。 

本 书 可 作为 高 等 学 校 理 工科 学 生 学 习 程 序 设计 的 教材 ,也 可 以 作为 程序 设计 的 初学 者 、 
从 事 工程 计算 的 工作 人 员 和 科研 人 员 的 参考 书 。 

本 书 由 王丽娟 、 段 志 东 主编 , 李 玉 龙 主 审 。 第 1.2、12、14 草 由 王 红 座 编写 ,第 3、5、6、 
7 曹 由 陈 权 编写 ,第 9.11.13 草 和 附录 A 由 段 志 东 编写 ,第 4.8、10 章 和 附录 B 由 王丽娟 编 
写 。 与 本 书 配 套 的 4FEORTRAN95 程序 设计 实验 指导 及 测试 》 一 书 由 王 红 鹰 、 陈 权 主 编 , 李 
玉龙 主 审 。 

本 书 在 规划 .编写 过 程 中 得 到 了 兰州 交通 大 学 教务 处 .计算 机 教学 示范 中 心 .电信 学 院 、 
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计算 思维 与 程序 设计 


教学 目标 : 

。 掌握 计算 机 的 系统 组 成 ; 

。 理解 计算 思维 的 概念 及 应 用 ; 

。 理解 三 种 计算 机 语言 及 其 相互 间 的 关系 ; 
。 等 握 算 法 的 概念 及 其 表示 方式 ; 

。 等 握 三 种 基本 结构 ; 

。 理解 程序 和 程序 设计 的 含义 。 


计算 机 科学 是 关于 计算 的 学 科 , 计 算是 利用 计算 机 解决 问题 的 过 程 。 计 算 思 维 就 是 计 
算 机 科学 冢 在 用 计算 机 解决 问题 时 形成 的 特有 的 思维 方式 和 解决 方法 。 


1.1 什么 是 计算 


1.1.1 计算 机 的 硬件 


计算 机 是 20 世纪 人 类 最 伟大 的 发 明之 一 。 上 月 从 世界 上 第 一 台电 子 数字 计算 机 诞生 以 
来 ,在 短 短 的 几 十 年 内 得 到 了 迅速 发 展 和 广泛 应 用 。 现 在 计算 机 已 经 应 用 到 社会 .生活 的 几 
乎 每 一 个 方面 。 人 们 利用 计算 机 上 网 冲浪 、 写 文章 、 打 游戏 或 听 歌 .看 电影 ,机 构 用 计算 机 管 
理 企 业 .设计 制造 产品 或 从 事 电子 商务 ,大量 仪 需 设 备 由 计算 机 控制 ,手机 与 电脑 之 间 的 差 
别 越 来 越 小 ,……… 总 之 计算 机 似乎 是 无 处 不 在 、 无 所 不 能 的 。 那 么 ,计算 机 是 如 何 做 到 这 一 
切 的 呢 ?” 为 了 回答 这 个 问题 ,需要 了 解 计 算 机 系统 构成 和 计算 机 的 工作 原理 。 

提 到 计算 机 ,人 们 的 脑 中 首先 会 浮现 出 显示 需 、 键 盘 、 鼠标、 主机 箱 等 一 堆 计 算 机 硬件 设 
备 。 下 面 先 来 了 解 一 些 计 算 机 硬件 设备 的 基础 知识 ,学 习 用 计算 机 解决 问题 的 计算 机 制 。 
现代 计算 机 的 主要 功能 部 件 如 图 1. 1 所 示 。 


图 1.1 计算 机 的 基本 结构 (主要 功能 部 件 ) 
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1. CPU .指令 与 程序 

中 央 处 理 硕 CCPU) 是 计算 机 的 核心 部 件 ,主要 包括 运算 希 和 控制 病 。CPU 是 计算 机 的 
计算 部 件 ,能 够 执行 机 器 指令 (简称 指令 ,instruction) 。 指 令 由 操作 码 和 操作 数 构成 ,每 条 
指令 表达 的 是 计算 机 对 特定 数据 执行 特定 操作 。 茶 种 CPU 能 执行 的 全 体 指令 是 由 该 CPU 
制造 商 设计 并 保持 固定 不 变 的 , 称 为 该 CPU 的 指令 集 。 例 如 ,Intel 公司 为 它 的 80x86 系列 
处 理 器 设计 了 上 百 条 的 指令 。 

外 行人 也 许 认 为 ,计算 机 的 功能 如 此 强大 是 因为 它 能 执行 功能 强大 的 指令 ,然而 事实 并 
韭 如 此 。 即 使 是 目前 最 先进 、 计 算 能 力 最 强大 的 计算 机 , 它 的 CPU 也 只 会 执行 一 些 非常 简 
单 的 指令 ,例如 两 个 数 相 加 、 判 断 两 个 数 是 否 相等 .把 数据 放 人 指定 的 存储 单元 ,等 等 。 

由 于 每 条 指令 都 只 能 完成 很 简单 的 操作 ,因此 只 徘 少 数 几 条 指令 是 无 法 完成 复杂 的 事 
情 的 。 但 是 ,如 果 将 成 干 上 万 条 简单 指令 组 合 起 来 ,就 能 解决 非常 复 灯 的 问题 。 所 以 说 , 复 
杂 操 作 可 以 通过 执行 按 特定 次 序 排列 的 许多 简单 操作 而 实现 。 这 种 由 许多 指令 按 次 序 排列 
而 成 并 交 给 计算 机 逐条 执行 的 指令 序列 就 称 为 程序 (program)。 为 了 用 计算 机 解决 问题 ， 
把 问题 的 解法 表达 成 一 个 指令 序列 ( 即 程序 ) 的 过 程 , 称 为 程序 设计 或 编程 (programming)。 
可 见 , 计 算 机 所 做 的 一 切 神奇 的 事情 ,都 是 徘 一 步 一 步 执 行 平 凡 而 乏味 的 简单 指令 序列 来 做 
到 的 。 计 算 机 一 点 也 不 神奇 , 它 唯 一 会 做 的 事情 就 是 机 械 地 执行 预定 的 指令 序列 。 

2. 存储 占 

存储 天 是 计算 机 的 记忆 部 件 , 用 于 存储 数据 和 程序 。 

存储 融 分 为 主人 存储 硕 和 外 存储 硕 ,它们 是 用 不 同 的 物理 材料 制造 的 。CPU 只 能 和 耳 接 访 
问 主 存储 器 ,也 只 有 主 存储 器 才能 提供 与 CPU 相 匹 配 的 存 取 速度 。 主 存储 器 需要 持续 供 
电 来 维持 存储 ,一 旦 断 电 , 存 储 的 数据 或 程序 就 会 消失 。 为 了 长 期 \ 持 久 地 存储 信息 ,可 以 使 
用 即使 断 电 也 能 保持 存储 的 外 存储 器 ,如 硬盘 。CPU 不 能 直接 访问 外 存储 器 ,外 存储 右上 
的 数据 或 程序 必须 先导 人 到 主 存储 硕 中 ,才能 和 钙 CPU 和 存 取 或 执行 。 外 存 人 笃 冀 的 读 写 速 度 
还 还 低 于 主 存储 天 ,这 个 差别 极 大 地 影响 了 计算 机 解决 问题 时 所 使 用 的 方法 。 

3. 输入 输出 设备 

输入 和 输出 设备 是 人 与 计算 机 进行 交互 的 设备 。 我 们 通过 输入 设备 回 计 算 机 输入 信 
县 ,计算 机 则 通过 输出 设备 将 计算 结 昌 告知 我 们 。 传 统 的 输入 设备 有 键盘 和 鼠标 等 ,输出 设 
备 有 显示 器 和 打印 机 等 。 现 代 的 触摸 屏 则 兼 具 输 入 和 输出 功能 ， 

现代 计算 机 在 体系 结构 上 的 特点 是 : 数据 和 程序 都 以 二 进 制 形式 存储 在 主 存储 器 中 ， 
CPU 通过 访问 主 存储 右 来 取得 待 执行 的 指令 和 每 处 理 的 数据 。 这 称 为 双 ， 庄 依 曼 (John 
von Neumann,1903 一 1957) 体 系 结构 。 


1.1.2 计算 


了 解 了 计算 机 的 组 成 ,就 能 理解 计算 机 解决 问题 的 过 程 。 我 们 来 看 一 个 计算 机 篆 见 任 
务 一 一 写 文 章 是 如 何 实现 的 。 为 了 解决 这 个 问题 ,首先 需要 编写 具有 和 输入、 编辑 、 保 存 文 章 
等 功能 的 程序 ,如 微软 公司 的 Word 程序 、 金山 公司 的 WPS 文字 程序 等 。 如 果 这 个 Word 
程序 已 经 存 人 (通过 安装 ) 计 算 机 的 外 存储 器 (硬盘 ) ,通过 双击 Word 程序 图 标 等 方式 可 以 
局 动 这 个 程序 ,也 就 是 将 该 程序 从 硬盘 加 载 到 内 存储 硕 中 。 然 后 CPU 逐条 取出 该 程序 的 
指令 并 执行 ,直至 最 后 一 条 指令 执行 完毕 ,程序 即 告 结束 。 在 程序 执行 过 程 中 ,有 些 指令 会 
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导致 与 用 户 的 交互 ,例如 ,用 户 利用 键盘 输入 或 删除 文字 ,利用 鼠标 选择 染 单 进行 存盘 或 打 
印 ,等 等 。 就 这 样 ,通过 执行 成 千 上 万 条 简单 的 指令 ,最 终 解 决 了 计算 机 写 文 草 的 问题 。 

和 针对 一 个 问题 ,设计 出 解决 问题 的 程序 ( 指 令 序 列 ), 并 由 计算 机 来 执行 这 个 程序 ,这 就 
是 计算 (computation)。 

通过 计算 ,使 得 只 会 执行 简单 操作 的 计算 机 能 够 完成 复杂 任务 ,所 以 计算 机 的 神奇 表现 
其 实 都 是 计算 的 威力 。 我 们 青 通 过 一 个 人 简单 的 例子 来 了 解 计算 的 能 力 。 小 章 是 一 个 只 学 过 
加 法 的 一 年 级 小 学 生 ,她 能 完成 一 个 乘法 运算 的 任务 吗 ? 答案 是 肯定 的 。 解 决 问题 的 关键 
在 于 编写 出 适合 的 指令 序列 让 小 利 机 械 地 执行 。 例 如 ,下 列 “ 程 序 ” 就 能 使 小 利 计 算出 
mn: 

在 纸 上 写 下 0, 记 住 结 果 ，; 

给 所 记 结 果 加 上 第 1 个 n, 记 住 结 果 ，; 

给 所 记 结 果 加 上 第 2 个 n, 记 住 结 果 ， 

给 所 记 结 果 加 上 第 m 个 n, 记 住 结 果 。 到 这 里 就 得 到 了 mXn。 

可 以 看 出 ,这 个 指令 序列 的 每 一 步 都 是 小 痢 能 够 做 到 的 ,因此 最 后 确实 能 完成 乘法 计 
算 。 这 就 是 “计算 ”所 市 来 的 成 果 。 

计算 机 就 是 通过 这 样 的 “计算 ?来 解决 所 有 复杂 问题 的 。 执 行 大 量 简单 指令 组 成 的 程序 
虽然 枯燥 烦琐 ,但 计算 机 作为 一 种 机 需 , 其 特长 正在 于 机 械 地 .忠实 地 ,不厌其烦 地 执行 大 量 
徐 单 指令 。 

1.1.3 计算 机 的 软件 

我 们 已 经 知道 计算 机 就 是 进行 “计算 ”的 机 天 。 这 里 的 “计算 ?显然 已 不 是 日 第 所 说 的 数 
学 计算 。 事 实 上 ,计算 机 在 屏幕 上 显示 信息 ,在 Word 文档 中 查找 并 替换 文本 ,播放 MP3 音 
乐 ,这 些 都 是 计算 。 

理解 了 计算 机 是 如 何 计算 的 ,也 就 能 理解 为 什么 计算 机 能 解决 各 种 不 同类 型 的 问题 。 
其 中 的 奥秘 就 是 程序 。 如 果 想 用 计算 机 写 文 章 , 就 将 Word 之 类 的 程序 加 载 到 主 存储 需 中 
让 CPU 去 执行 ; 如 果 想 用 计算 机 听 音 乐 , 就 将 Media Player 之 类 的 程序 加 载 到 主 存储 硕 中 
让 CPU 去 执行 ; 如 果 将 Internet Explorer 之 类 的 程序 加 载 到 主 存储 大 中 让 CPU 去 执行 ， 
计算 机 就 可 以 在 互联 网 上 浏览 信息 。 一 人 台 计 算 机 的 硬件 虽然 固定 不 变 , 但 通过 加 载 执行 不 
同 的 程序 ,就 能 实现 不 同 的 功能 ,解决 不 同 的 问题 。 

我 们 平时 所 说 的 计算 机 就 是 安 闻 了 各 种 不 同 程序 的 计算 机 ,这 才 是 一 个 完整 的 计算 机 
系统 。 所 以 说 计算 机 系统 包括 了 人 硬件 系统 和 软件 系统 两 部 分 ,其 中 软件 系统 就 是 为 运行 、 管 
理 和 维护 计算 机 而 编制 的 各 种 程序 .数据 和 文档 的 总 称 。 软 件 系统 又 包括 系统 软件 和 应 用 
软件 ,软件 的 主要 构成 就 是 程序 。 这 样 的 计算 机 具有 通用 性 。 

在 工业 控制 和 散人 入 式 设备 等 领域 存在 专用 计算 机 ,它们 只 执行 预定 的 程序 ,从 而 实现 固 
定 的 功能 。 例 如 ,智能 电 饭 锅 其 实 就 是 能 执行 预定 程序 的 计算 机 。 


1.1.4 计算 科学 
为 了 更 好 地 利用 计算 机 解决 问题 ,人 们 深入 研究 了 关于 计算 的 理论 .方法 和 技术 ,形成 
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了 专门 研究 计算 的 学 科 一 一 计算 机 科学 (Computer Science ) 。 

计算 机 科学 包含 很 多 内 容 , 是 一 门 包含 各 种 各 样 与 计算 和 信息 处 理 相 关 主 题 的 系统 学 
科 , 从 抽象 的 算法 分 析 、 形 式 化 语法 等 ,到 更 具体 的 编程 语言 ,程序 设计 、 软 件 和 便 件 等 。 计 
算 机 科学 包括 理论 计算 机 科学 和 应 用 计算 机 科学 。 本 书 侧 重 于 计算 机 科学 家 在 用 计算 机 解 
决 问 题 时 建立 的 一 些 基 本 思想 和 方法 ,这 些 思 想 和 方法 普遍 存在 于 计算 机 科学 的 各 个 分 文 
中 。 计 算 机 科学 家 在 思考 一 个 根本 问题 : 到底 什么 问题 是 计算 机 可 计算 的 ? 一 般 人 会 认 
为 ,一 个 问题 能 不 能 用 计算 机 计算 ,取决 于 该 计算 机 的 计算 能 力 ; 而 计算 机 的 计算 能 力 又 取 
决 于 CPU 的 运算 速度 、 指 令 集 \ 主 存储 右 容 量 等 硬件 指标 。 然 而 ,作为 计算 机 科学 理论 基 
础 的 可 计算 理论 却 揭示 出 了 一 个 出 人 意料 的 结论 : 所 有 计算 机 的 计算 能 力 都 是 一 样 的 ! 尽 
管 不 同 计 算 机 有 不 同 的 指令 集 和 不 同性 能 的 硬件 ,在 计算 的 时 间 和 空间 效率 上 可 能 有 所 差 
异 , 但 现 有 的 各 种 计算 设备 在 计算 的 能 力 上 是 等 同 的 。 一 台 计 算 机 能 解决 的 问题 ,为 一 台 计 
算 机 上 朋 定 也 能 解决 。 

作为 一 个 学 科 , 计 算 机 科学 涵盖 了 从 算法 的 理论 研究 和 计算 的 极限 ,到 如 何 通 过 便 件 和 
软件 实现 计算 系统 。 计 算 机 科学 评审 委员 会 (Computing Sciences Accreditation Board， 
CSAB) 由 Association for Computing Machinery( ACM) 和 IEEE Computer Society (IEEE- 
CS) 的 代表 组 成 ,确立 了 计算 机 科学 学 科 的 4 个 主要 领域 : 计算 理论 .算法 与 数据 结构 、 编 程 
方法 与 编程 语言 ,以 及 计算 机 元 素 与 架构 。CSAB 还 确立 了 其 他 一 些 重要 领域 ,如 软件 工 
程 、 人 工 智能 ,计算 机 网 络 与 通信 ,数据库 系统 、 并 行 计算 ,分布 式 计算 、 人 机 交互 .机 器 翻 译 、 
计算 机 图 形 学 .操作 系统 ,以 及 数值 和 符号 计算 。 


1.2 什么 是 计算 思维 


如 前 所 述 ,计算 是 利用 计算 机 一 步 一 步 地 执行 指令 来 解决 问题 的 过 程 ,计算 机 科学 是 天 
于 计算 的 科学 。 正 如 数学 家 在 证 明 数 学 定理 时 有 独特 的 数学 思维 .工程 师 在 进行 设计 制造 
生产 时 有 独特 的 工程 思维 .艺术 家 .在 创作 诗歌 音乐 绘画 时 有 独特 的 艺术 思维 一 样 ,计算 机 科 
学 家 在 用 计算 机 解决 问题 时 也 有 日 己 独 特 的 思维 方式 和 解决 方法 ,统称 为 计算 思维 。 

计算 思维 的 提出 ,最 早 可 回潮 到 美国 胀 省 理工 学 院 (MIT) 的 西 索 。 由 佩 特 (Seymour 
Papert) 教 授 。 美 国 卡 内 基 ， 梅 隆 大 学 的 计算 机 科学 系 主 任 周 以 真 教授 则 对 其 进行 了 系统 
闸 述 和 推广 。 2006 年 3 月 , 周 以 页 (Jeannette M. Wing) 教 授 在 美国 计算 机 权威 期 刊 
Communications of the ACM 上 提出 并 定义 了 计算 思维 (Computational Thinking)。 周 教 
授 认 为 “计算 思维 是 运用 计算 机 科学 的 基础 概念 进行 问题 求解 、 系 统 设计 以 及 人 类 行为 理 
解 等 涵盖 计算 机 科学 之 广度 的 一 系列 思维 活动 。” 

从 问题 的 计算 机 表示 、 算 法 设计 下 到 编程 实现 ,计算 思维 贯 罕 于 计算 的 全 过 程 。 学 习 计 
算 思 维 ,就 是 学 会 像 计算 机 科学 家 一 样 思考 和 解决 问题 。 


1.2.1 计算 思维 的 基本 原则 


用 计算 机 解决 问题 时 必须 遵循 的 基本 原则 是 : 既 要 充分 利用 计算 机 的 计算 和 存储 能 
力 , 又 不 能 超出 计算 机 的 能 力 范 围 。 计 算 思 维 是 建立 在 计算 机 的 能 力 和 限制 之 上 的 ,这 是 计 
人 算 思 维 区 别 于 其 他 思维 方式 的 -个 重要 特征 a 
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例如 ,能 够 高 速 执 行 大 量 指 令 是 计算 机 的 能 力 , 但 每 条 指令 只 能 执行 有 限 的 一 些 简单 操 
作 则 是 计算 机 的 限制 ,因此 不 能 要 求 计 算 机 去 执行 无 法 划 归 为 简单 操作 的 复杂 任务 。 又 如 ， 
计算 机 只 能 表示 固定 范围 的 有 限 整 数 , 任 何 计 算 如 果 要 涉及 超出 范围 的 整数 时 ,都 必须 想 办 
法 经 开 这 个 限制 。 再 如 ,计算 机 的 便 盘 容量 大 ,不 需要 电力 维持 存储 ,但 存 取 速度 慢 , 因 此 涉 
及 人 硬盘 数据 的 应 用 程序 必须 寻求 高 效 的 索引 和 缓冲 方法 来 处 理 数 据 。 

计算 思维 有 上 月 己 的 独立 性 ,但 它 同时 也 吸收 了 其 他 领域 的 一 些 思 维 方式 ,进行 了 融合 和 
互补 。 例 如 ,计算 机 科学 在 本 质 上 源 目 数学 思维 ,因此 计算 机 科学 家 像 数 学 家 一 样 建 立 现 实 
世界 的 抽象 模型 ,使 用 形式 语言 表达 思想 ; 同样 ,计算 机 科学 也 源 日 工程 思维 ,我 们 建造 的 
是 能 够 与 实际 世界 互动 的 系统 ,计算 机 科学 家 像 工 程 师 一 样 设计 、 制 造 、 组 淡 与 现实 世界 打 
交道 的 产品 ,寻求 更 好 的 工艺 流程 来 提高 产品 质量 ; 还 会 像 上 自然 科学 家 一 样 观察 系统 行为 ， 
形成 理论 ,并 通过 预测 系统 行为 来 检验 理论 ; 像 经 济 学 家 一 样 评估 代价 与 收益 ,权衡 多 种 选 
择 的 利 闵 ; 像 手 工艺 人 一 样 追 求 作品 的 简洁、 精致 ,美观 ,并 在 作品 中 打上 体现 个 人 风格 的 
烙印 。 

计算 思维 是 人 的 思想 和 方法 ,不 是 计算 机 的 思维 。 计 算 思 维 旨 在 利用 计算 机 解决 问题 ， 
而 不 是 使 人 像 计 算 机 一 样 做 事 。 作 为 “思想 和 方法 ”, 计 算 思 维 是 一 种 解 题 能 力 ,不 能 机 械 地 
套用 ,而 是 通过 学 习 和 实践 来 培养 。 计 算 机 是 机 械 而 牺 拙 的 ,但 可 以 通过 人 类 的 思想 赋予 计 
算 机 以 活力 。 


1.2.2 计算 思维 的 基本 应 用 


由 于 计算 机 的 能 力 和 局 限 , 计 算 机 科学 家 提出 了 很 多 关于 计算 的 思想 和 方法 ,从 而 建立 
了 利用 计算 机 解决 问题 的 一 整套 思维 工具 。 下 面 先 来 简要 介绍 计算 机 科学 家 在 计算 的 不 同 
阶段 所 采用 的 常见 思想 和 方法 。 

1. 问题 表示 

用 计算 机 解决 问题 ,首先 要 建立 问题 的 计算 机 表示 。 问 题 表示 与 问题 求解 是 紧密 相关 
的 ,如 果 问 题 的 表示 合适 , 则 问题 的 解法 事半功倍 ,否则 可 能 事倍功半 ,难以 得 到 。 

抽象 (Abstraction) 一 词 的 本 意 是 指 人 在 认识 思维 活动 中 对 事物 表象 因 双 的 舍弃 和 对 
本 质 因 系 的 抽取 。 抽 和 象 是 用 于 问题 表示 的 重要 思维 工具 。 

例如 ,小学生 经 过 学 习 都 知道 将 应 用 题 “ 原 来 有 10 个 人 苹果 ,上 吃 掉 8 个 后 ,又 丑 进来 5 个 ， 
现在 有 几 个 苹果 ?” 抽 象 表 示 成 “10 一 8 十 5”, 这 里 显然 只 抽取 了 问题 中 的 数量 特性 和 过 程 , 完 
全 忽略 了 苹果 的 颜色 、 吃 法 和 用 时 等 不 相关 因素 。 

一 般 意 义 上 的 抽象 ,就 是 指 这 种 忽略 研究 对 象 的 具体 的 和 无 关 的 特性 ,而 抽取 其 一 般 的 
或 相关 的 特性 。 程 序 设 计 中 的 抽象 包括 数据 抽象 和 过 程 抽象 , 简 言 之 就 是 将 现实 世界 中 的 
各 种 数量 关系 、 空 间 关 系 、 逻辑 关系 和 处 理 过 程 等 表示 成 计算 机 世界 中 的 数据 结构 (数值 . 字 
符 串 ,列表 ,堆栈 等 ) 和 控制 结构 (基本 指令 顺序、 分 支 、 循 环 .模块 等 ) ,或 者 说 建立 实际 问题 
的 计算 模型 。 另 外 ,抽象 还 用 于 在 不 改变 意义 的 前 提 下 隐 去 或 减少 过 多 的 具体 细节 ,以 便于 
只 关注 少数 几 个 特性 ,从 而 有 利于 理解 和 处 理 复杂 问题 。 显 然 , 通 过 抽象 还 能 发 现 一 些 看 似 
不 同 的 问题 的 共性 ,从 而 建立 相同 的 计算 模型 。 

总 之 ,抽象 是 计算 机 科学 中 广泛 使 用 的 思维 方式 ,只 要 有 可 能 并 且 合 适 , 程 序 设 计 就 要 
使 用 抽象 。 抽 象 可 以 在 不 同 层次 上 进行 。 
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2. 算法 设计 

问题 得 到 表示 后 , 接 下 来 的 关键 是 找到 问题 的 解法 一 一 算法 。 

算法 设计 是 计算 思维 的 主要 领域 ,计算 机 科学 家 采用 多 种 思维 方式 和 方法 来 找到 有 将 
的 算法 。 例 如 ,用 分 治 法 找到 了 高 效 的 排序 方法 ,利用 递归 的 思想 轻松 解决 了 Hanoi 塔 问 
题 , 等 等 。 计 算 机 在 各 个 领域 中 的 成 功 应 用 痢 有 赖 于 高 效 算 法 的 发 现 。 为 了 找到 融 效 算法 ， 
又 有 赖 于 各 种 算法 设计 方法 的 巧妙 应 用 ， 

计算 思维 常用 分 解约 人 简 、 租 入、 转化 和 仿真 等 方法 ,把 一 个 看 起 来 困难 重重 的 问题 曾 释 
成 一 个 我 们 知道 怎样 解决 的 问题 。 如 果 一 个 问题 过 于 复杂 、 难 以 得 到 精确 解法 ,或 者 根本 不 
存在 精确 解法 ,计算 机 科学 家 通常 不 介意 退 而 求 其 次 ,寻求 能 得 到 近似 解 的 解法 ,通过 牺牲 
精确 性 来 换取 有 效 性 和 可 行 性 。 例 如 搜索 引擎 ,一 方面 不 可 能 搜 出 所 有 与 用 户 关 键 字 相关 
的 网 页 , 男 一 方面 还 可 能 搜索 出 与 用 户 关 键 字 不 相关 的 网 页 。 

3. 编程 技术 

找到 了 解决 问题 的 算法 , 接 下 来 就 要 用 计算 机 语言 (编程 语言 ) 来 实现 算法 ,这 个 领域 同 
样 是 思想 和 方法 的 宝库 。 例 如 结构 化 编程 方法 ,使 用 规范 的 控制 流程 来 组 织 程序 的 处 理 步 
又 ,形成 层次 清晰 .边界 分 明 的 结构 化 构造 ,每 个 构造 具有 单一 的 人 口 和 出 口 , 从 而 使 程序 易 
于 理解 \ 排 错 、 维 护 和 验证 正确 性 。 又 如 模块 化 编程 方法 ,采用 从 全 局 到 局 部 的 目 项 问 下 设 
计 方 法 ,将 复杂 程序 分 解 成 许多 较 小 的 模块 ,解决 了 所 有 底层 模块 后 ,将 模块 组 站 起 来 就 构 
成 最 终 程 序 。 青 如 面 品 对 象 编程 方法 ,以 数据 和 操作 融 为 一 体 的 对 象 作 为 基本 单位 来 描述 
复杂 系统 ,通过 对 象 之 则 的 相互 协作 和 交互 实现 系统 的 功能 。 此 外 ,程序 设计 不 能 只 关注 程 
序 的 正确 性 和 执行 效率 ,还 要 考虑 良好 的 编码 风格 和 程序 美学 问题 。 

4. 可 计算 性 和 算法 复杂 性 

在 用 计算 机 解决 问题 时 ,不 仅 要 找 出 正确 的 解法 ,还 要 考虑 解法 的 复 洒 度 。 这 一 点 和 数 
学 思维 是 不 一 样 的 。 对 于 计算 机 而 言 ,如 果 一 个 解法 太 复 洒 , 叶 至 计算 机 要 耗费 几 年 甚至 几 
十 年 甚至 更 久 的 时 间 才 能 计算 出 结果 ,那么 这 种 "解法 ”只 能 被 放 径 ,问题 等 于 没 解 次 。 有 时 
一 个 问题 已 经 有 了 可 行 的 算法 ,但 计算 机 科学 家 仍 会 去 寻求 更 有 效 的 算法 。 计 算 机 科学 的 
根本 任务 可 以 说 是 从 本 质 上 研究 问题 的 可 计算 性 。 

虽然 很 多 问题 对 于 计算 机 来 说 难度 太 高 甚至 是 不 可 能 的 任务 ,但 计算 思维 具有 灵活 、 变 
通 .实用 性 的 特点 ,对 这 样 的 问题 可 以 去 寻求 不 那么 严格 但 现实 中 可 行 的 实用 解法 。 例 如 ， 
当 计 算 机 有 限 的 内 存 无 法 容纳 复杂 问题 的 海量 效 据 时 ,设计 出 缓冲 方法 来 分 批 处 理 数据 。 
又 如 , 当 许 多 用 户 共 带 并 葛 争 某 些 系 统 质 源 时 ,又 可 利用 同步 .并 发 机 制 等 技术 来 避免 欧 态 
和 僵局 。 


1.2.3 计算 思维 在 日 常生 活 中 的 体现 


人 们 在 日 帝 生 活 中 的 很 多 做 法 和 都 与 计算 思维 不 主 而 合 , 也 可 以 说 计算 思维 从 生活 中 吸 
收 了 很 多 有 用 的 思想 和 方法 。 

算法 过 程 : 采 详 是 算法 的 典型 代表 , 它 将 一 追 末 的 及 人 饪 方法 一 步 步 地 罗列 出 来 ,即使 不 
是 专业 厨师 ,也 可 以 按照 来 谱 的 步 又 做 出 来 看 。 这 里 集 谱 的 每 一 步骤 必须 足够 商 单 、 可 行 。 
例如 ， 将 豆 诊 切 成 小 块 交 将 少量 油 倒 人 钢 中 加 热 ” 等 部 是 可 行 步骤 。 

模块 化 : 很 多 菜 看 的 制作 过 程 中 部 有 “ 勾 闪 "这 个 操作 步骤 。 与 其 说 这 是 一 个 基本 步 
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又 ,不 如 说 这 是 一 个 模块 ,因为 勾 痰 本身 代 表 着 一 个 操作 序列 一 一 取 一 些 证 粉 ,加 点 水 ,搅拌 
匀 , 在 适当 的 时 候 倒 入 菜 中 。 这 个 操作 序列 经 常 使 用 ,为 了 避免 重复 ,也 为 了 使 菜谱 更 清 

晰 、 易 读 , 就 用 “ 勾 交 ”这 个 术语 简明 表示 。 这 同时 反映 了 抽象 可 以 在 不 同 层 次 上 进行 。 

查找 : 如 果 要 在 字典 里 查找 一 个 词语 ,该 者 不 会 从 第 一 页 开始 一 页 页 地 翻 找 ,而 是 会 根 
据 字 典 是 有 序 排 列 的 事实 ,快速 地 定位 词 条 。 又 如 ,老师 说 请 将 书本 翻 到 第 6 章 , 我 们 会 借 
助 书 前 目录 直接 找到 第 6 章 所 在 的 页 码 。 这 就 是 计算 机 中 广泛 使 用 的 索引 技术 。 

缓冲 : 假设 将 学 生 所 用 的 教科 书 视 为 数据 ,上 课 看 作对 数据 的 处 理 ,那么 学 生 的 书包 就 
可 以 视 为 缓冲 存储 。 学 生 每 天 携 帘 所 有 的 教科 书 是 不 可 能 的 ,因此 每 天 只 要 把 当天 要 用 的 
教科 书 放 和 书包 ,第 二 天 再 换 和 人 新 的 教科 书 。 

并 发 : 厨师 在 烧 莱 时 ,如 果 一 种 全 需要 在 锅 中 者 一 段 时 间 ,这 时 厨师 一 定 会 利用 这 段 时 
间 去 做 点 别 的 事情 ,如 将 男 一 种 菜 洗 兆 切 好 。 在 此 期 间 , 如 果 锅 里 的 菜 需 要 加 盐 加 佐 料 , 厨 
师 可 以 放下 手 里 的 活 去 处 理 锅 里 的 莱 。 就 这 样 虽然 只 有 一 个 厨师 ,但 可 以 同时 做 几 道 荣 。 

类 似 的 例子 还 有 很 多 ,需要 强调 的 是 ,在 学 习 用 计算 机 解 雇 问题 时 ,如 果 经 和 并 想 想 生 活 
中 过 到 类 似 问 题 时 的 做 法 ,一定 会 对 找 出 问题 解法 有 所 帮助 。 

随 着 计算 机 在 各 个 领域 中 得 到 广泛 的 应 用 ,计算 思维 对 许多 学 科 都 产生 了 重要 影响 


1.3 计算 机 语言 


如 前 所 述 , 计 算 机 解决 问题 的 过 程 就 是 执行 “程序 ”, 实 质 上 就 是 机 械 地 执行 人 们 为 它 编 
制 的 指令 序列 的 过 程 。 为 了 告诉 计算 机 应 当 执 行 什么 指令 ,需要 使 用 某 种 计算 机 声言 来 编 
写 程 序 。 这 种 计算 机 语言 能 够 准确 描述 出 计算 过 程 ,也 称 为 程序 设计 语言 或 编程 语言 。 

计算 机 语言 是 人 工 设计 的 语言 ,是 人 和 计算 机 进行 交流 的 工具 ,是 用 来 书写 程序 的 工 
具 , 具 有 严格 的 语法 .语义 。 

计算 机 语言 从 低级 语言 到 高 级 语言 ,从 传统 语言 到 现代 语言 不 断 地 癌 前 发 展 ,新 的 、 功 
能 强大 的 计算 机 语言 不 断 涌现 。 


1.3.1 机 器 语言 


CPU 制造 商 在 设计 某 种 CPU 便 件 结构 的 同时 ,也 为 其 设计 了 一 种 “母语 ”一 一 指令 集 ， 
这 种 语言 称 为 机 器 语言 (Machine Language)。 这 种 语言 的 代码 全 部 由 二 进 制 符号 “0” 和 “1” 
按照 确定 的 方式 排列 组 合 而 成 ,利用 机 条 请 言 书 写 的 程序 就 是 二 进 制 指令 的 序列 。 机 兹 请 
言 编写 的 程序 能 够 被 计算 机 直接 识别 和 执行 ,执行 速度 快 、 效 率 高 。 

例如 ,计算 A=2 十 3 的 机 器 语言 程序 如 下 : 


00100011 00000010  ----- 一 - 把 2 放 作 累加 器 A 中 
00000011 00000011 -一 一 一 一 一 一 3 与 累加 器 A 的 值 相 加 ,结果 仍 放 人 中 
00000010 -一 -一 -一 一 将 累加 器 数 5 从 总 线 输出 


机 帮 语 言 与 具体 的 计算 机 人 硬件 结构 有 关 , 不 同 的 计算 机 人 刹 件 配置 有 不 同 的 机 兹 语言 。 
机 絮语 言 程序 编写 难度 大 , 难 学 、 难 写 、 难 记 , 功 能 简单 ,程序 的 可 菲 性 、 可 维护 性 及 可 移植 性 
差 。 初 期 ,只 有 极 少数 计算 机 专业 人 员 会 编写 机 带 语 言 程序 。 


FORTRAN 语言 程序 设计 一 一 FORTRANSS5 


1.3.2 汇编 语言 


为 了 解决 机 器 语言 存在 的 突出 问题 ,使 编程 更 容易 ,计算 机 科学 家 发 明了 汇编 语言 
(Assembly Language)。 汇 编 霹 言 是 用 一 些 容 易 让 人 理解 和 记忆 的 助 记 符 来 表示 机 天 语言 
中 的 二 进 制 指令 的 语言 ,用 汇编 语言 编写 的 程序 比 机 器 语言 编写 的 程序 提高 了 可 读 性 ,可靠 
性 和 可 维护 性 。 

例如 ,计算 A=2 十 3 的 汇编 语言 程序 如 下 : 


NOY A2H ee= 把 2 放 人 累加 器 A 中 
ED RE 3 与 累加 器 A 相 加 ,结果 存 人 A 中 
DE 将 累加 器 数 5 从 总 线 输出 


可 见 在 汇编 语言 中 ,指令 的 操作 符 是 用 MOV、ADD 之 类 的 助 记 符 表示 的 ,操作 数 也 用 
易 理 解 的 数字 或 符号 来 表示 ,因此 指令 的 含义 变 得 容易 理解 。 

虽然 用 汇编 语言 书写 程序 对 程序 员 来 说 难度 比 机 上 需 语 言 降 低 了 ,但 是 计算 机 并 不 能 直 
接 理 解 汇编 语言 ,这 就 需要 一 个 称 为 汇编 器 的 程序 (汇编 软件 ) 作 为 翻译 ,将 汇编 语言 程序 翻 
译 成 机 屁 语 言 程序 。 通 过 汇编 器 的 “翻译 ”, 让 程序 员 “ 说 ”的 汇编 语言 程序 能 被 计算 机 “ 听 ” 
异 并 执行 。 汇 编 语 言 编写 的 程序 叫做 “ 源 程 序 ”, 翻 详 后 的 机 融 语 言 程 序 叫 做 “目标 程序 ”。 

汇编 语言 编写 的 程序 执行 速度 快 、. 运 行 效 率 高 ,如 今 在 通 人 式 等 系统 中 仍然 非常 有 用 。 
但 是 汇编 语言 同 机 融 语言 并 没有 本 质 区 别 ,同样 与 计算 机 人 硬件 结构 有 关 ,不 同 的 计算 机 人 硬件 
配置 有 不 同 的 汇编 语言 。 汇 编 语言 程序 不 容 多 编号、 理解 ,维护 和 移植 。 

机 器 语言 和 汇编 语言 是 完全 依赖 于 具体 机 器 结构 的 ,是 面向 机 器 的 语言 ,因为 它们 “ 贴 
近 ” 计 算 机 ,因此 称 为 低级 语言 。 


1.3.3 高 级 语言 


为 了 克服 低级 语言 的 缺点 ,20 世纪 50 年 代 创 造 出 了 第 一 个 计算 机 高 级 语言 -一 
FORTRAN 语言 。 高 级 语言 (High Level Language) 相 对 于 低级 语言 有 很 多 优点 ,吸收 了 人 
们 习惯 使 用 的 自然 语言 (英语 ) 和 数学 语言 的 某 些 成 分 ,易学 、 易 读 、 易 于 编写 、 可 靠 性 高 、 可 
维护 性 好 。 高 级 语言 与 计算 机 人 硬件 无 关 , 能 够 独立 于 机 器 ,编写 的 程序 可 以 移植 到 各 种 计算 
机 上 执行 。 

例如 ,计算 A 二 2 十 3 的 FORTRAN 语言 程序 如 下 : 

A=2+3 

PRINT*x ,A 


程序 中 用 到 的 场 句 和 指令 是 用 英文 单词 表示 的 ,所 用 的 运算 和 侍 和 运算 表达 式 同 人 们 日 
党 所 用 的 数学 式 子 差不多 ,计算 2 十 3 并 在 屏 有 天 输出 ,还 可 以 只 用 一 句 “PRINT * ,2 十 3” 完 
成 。 显 然 这 很 容易 理解 并 学 会 使 用 。 

用 高 级 语言 编 与 的 程序 ,计算 机 不 能 直接 识别 与 执行 。 为 了 能 让 计算 机 理解 并 执行 , 同 
样 要 先 将 高 级 语言 程序 翻 境 成 机 带 语 言 程 序 。 

高 级 语言 的 翻 详 有 两 种 方式 : 编 详 和 解释 。 

编 详 执 行 方式 是 由 编 详 项 (Compiler) 将 高 级 语言 程序 (Source Program, 源 程 序 ) 完 整 
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地 翻 详 成 等 价 的 机 甫 声言 程序 (Object Program, 目标 程序 ) ,然后 让 计算 机 执行 ,如 图 1. 2 
所 示 。 


图 1.2 高 级 语言 编译 执行 方式 


编译 的 特点 是 : 整个 源 程序 一 旦 翻译 完毕 ,以 后 就 可 以 在 任何 时 候 多 次 执行 目标 代码 ， 
再 也 不 需要 编译 器 的 参与 。 就 像 翻译 家 将 一 本 英文 小 说 笔译 成 中 文 版 ,这 是 一 次 性 的 工作 ， 
作为 翻译 结果 的 中 文 译本 可 以 多 次 阅读 。 以 编译 方式 处 理 源 程序 ,对 目标 程序 可 以 进行 很 
多 细致 的 优化 ,从 而 提高 程序 的 执行 速度 。 就 像 翻译 家 对 中 译本 可 以 精 雕 细 琢 ,从 而 达到 
“ 信 达 雅 ”的 境界 。 

解释 执行 方式 是 由 解释 器 (Interpreter) 直接 分 析 并 执行 高 级 语言 程序 ,如 图 1. 3 所 示 。 


图 1.3 融 级 语言 解释 执行 方式 


解释 的 特点 是 : 对 源 程 序 总 是 临 机 进行 解释 和 执行 。 就 像 外 交 部 的 口译 人 员 所 做 的 工 
作 , 国 家 领导 人 说 一 句 中 文 ,口译 者 立即 将 它 翻 译 成 英文 ; 即使 领导 人 后 来 说 了 同样 的 话 ， 
口 详 者 还 是 要 重新 翻 详 , 无 法 利用 以 前 的 翻 幸 结果 。 解 释 执 行 的 处 理 方式 无 法 利用 上 下 文 
信息 进行 优化 ,导致 程序 执行 速度 较 慢 ,正如 口译 者 无 法 琢磨 最 佳 译文 一 样 。 但 解释 性 语言 
具有 更 灵活 的 编程 环境 ,可 以 交互 式 地 输入 程序 语句 并 立即 执行 。 

前 面 已 提 到 高 级 语言 的 可 移植 性 ,这 正 是 因为 高 级 语言 先 翻 详 、 后 执行 的 特点 。 只 要 一 
台 计 算 机 上 有 合适 的 编 详 硕 或 解释 带 , 用 某 种 高 级 场 言 编写 的 程序 就 可 以 在 该 计算 机 上 
执行 。 

编译 希 和 解释 吉本 身 也 是 程序 ,这 种 程序 所 执行 的 计算 就 是 将 别 的 程序 翻 诺 成 机 需 能 
够 理解 的 指令 。 为 了 让 一 人 台 计 算 机 能 够 执行 某 种 高 级 语言 程序 ,必须 先 在 这 人 台 计 算 机 上 安 
阀 特定 高 级 语言 的 编 详 需 或 解释 硕 程序。 

运 今 为 止 ,人 类 已 发 明了 数 百 种 高 级 编程 语言 ,如 C、Java、C++、Visual Basic、 Visual 
C++ .PHP、Python、FORTRAN 等 。 不 同 语言 的 细节 不 尽 相 同 , 但 一 些 基本 语言 构造 在 绝 
大 多 数 语 言 中 都 存在 ,如 输入 输出 、 基 本 数学 运算 、 有 条 件 的 执行 和 重复 执行 等 。 一 般 只 要 
擎 握 了 一 种 编程 语言 , 青 去 学 习 其 他 语言 也 会 变 得 容易 。 本 书 选 择 的 是 FORTRAN 语言 ， 
这 是 世界 上 最 早出 现 的 高 级 语言 。 FORTRAN 在 科学 计算 领域 庞大 的 用 户 基 础 是 其 他 语 
言 所 无 法 比拟 的 ,尤其 是 对 于 老 一 辈 科 学 家 ,FORTRAN 更 是 犹如 母语 一 般 。 对 于 一 些 大 
型 的 ,涉及 复杂 科学 计算 方法 的 程序 ,主要 以 FORTRAN 居多 ,如 数值 气象 预报 程序 、 航 天 
器 轨道 计算 .许多 有 限 元 软件 的 编写 程序 等 。 
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1.4 算 法 


我 们 已 经 知道 ,程序 是 解决 某 个 问题 所 必须 执行 的 指令 序列 。 编 程 解决 一 个 问题 时 , 首 
先 要 找 出 解决 问题 的 方法 ,该 解决 方法 一 般 会 先 以 非 形式 化 的 方式 表述 成 由 一 系列 可 行 的 
步骤 组 成 的 过 程 ,然后 用 形式 化 的 编程 语言 去 实现 该 过 程 。 这 种 解决 特定 问题 的 .由 一 系列 
明确 可 行 的 步 又 组 成 的 过 程 , 称 为 算法 (Algorithm)。 算 法 表达 了 解决 问题 的 核心 步 又 , 反 
映 的 是 程序 的 解 题 逻辑 。 

算法 并 不 是 随 着 计算 机 的 发 明 才 出 现 的 。 早 在 两 千 多 年 前 , 古 希 腊 数 学 家 欧 几 里 得 就 
发 明了 一 种 求 两 个 目 然 数 的 最 大 公约 数 的 过 程 ,这 个 过 程 被 认为 是 史上 第 一 个 算法 。 

【 欧 几 里 得 算法 了 】 

第 1 步 : 输入 自然 数 a,b。 

第 2 步 ; 令 r 为 a/b 所 得 余数 。 

第 3 步 : 大 r= 二 0, 则 计算 结束 ,b 即 为 答案 ,进入 下 一 步 ; 

否则 置 a 二 b,b 夺 r, 转 到 第 2 步 。 

第 4 步 ; 输出 a,b 的 最 大 公约 数 。 

可 以 看 出 ,算法 通过 明确 定义 一 步 步 的 过 程 来 解决 问题 。 

利用 计算 机 解决 问题 的 关键 就 在 于 设计 出 合适 的 算法 ,当今 计算 机 在 各 行 各 业 中 的 成 
功 应 用 根本 上 说 都 取决 于 高 效 算 法 的 发 明 。 例 如 ,谷歌 公司 的 创建 者 发 明了 更 合理 的 网 页 
相关 性 排名 算法 ,从 而 使 Google 成 为 最 成 功 的 搜索 引擎 ; MP3、MP4 播放 需 依 靠 音频 视频 
压缩 算法 来 节省 存储 空间 ; GPS 导航 仪 利 用 高 效 的 最 短路 径 算 法 来 规划 最 短路 线 ; 等 等 。 


1.4.1 算法 的 特征 


算法 是 由 一 系列 步骤 构成 的 计算 过 程 ,但 并 不 是 随便 用 一 些 步 又 都 能 构成 合法 的 算法 。 
算法 必须 具有 以 下 特征 。 

(1) 有 穷 性 。 算 法 的 执行 步骤 总 是 有 限制 的 , 即 一 个 算法 必须 在 执行 有 穷 步 后 结束 。 
并 且 ,任何 算法 必须 在 有 限 的 时 间 ( 合 理 的 时 间 ) 内 完成 。 显 然 ,一 个 算法 如 果 永 十 不 能 结束 
或 需要 运行 相当 长 的 时 间 才 能 结束 ,这样 的 算法 是 没有 使 用 价值 的 。 例 如 ,让 计算 机 执行 一 
个 历时 100 年 才 结束 的 算法 ,这 虽然 是 有 穷 的 ,但 超过 了 合理 的 限度 ,也 不 能 把 它 视 作 有 效 

(2) 确定 性 。 算 法 中 的 每 一 步骤 必须 表达 明确 的 含义 ,不 能 有 歧义 性 。 例 如 ,两 位 同学 
约会 , 甲 对 乙 说 “我 在 110 等 你 ”, 这 个 步骤 就 是 不 确定 的 ,表现 在 两 个 方面 ,第 一 是 地 点 上 的 
不 确定 ,到 底 是 在 五 教 110 ,还 是 在 八 教 110 ,或 者 是 在 110 报警 亭 ; 第 二 就 是 时 间 上 的 不 确 
定 , 到 底 是 哪 一 天 的 几 点 。 这 都 给 对 方 非常 模糊 的 概念 ,不 是 有 效 的 算法 步骤 。 

(3) 可 执行 性 。 算 法 中 的 每 一 个 步骤 都 必须 具备 明确 的 可 操作 性 ,能 被 有 效 地 执行 ,并 
得 到 确定 的 结 末 。 例 如 , 当 B 是 一 个 很 小 的 实数 时 ,A/B 在 代数 中 是 正确 的 ,但 在 算法 中 是 
不 正确 的 , 它 在 计算 机 上 无 法 执行 ; 要 使 A/B 能 正确 执行 ,必须 在 算法 中 控制 B 满足 条 件 
1BI 盖 ,8 是 一 个 计算 机 人 允许 的 、 合 理 小 的 实数 。 在 设计 算法 时 ,要 选择 合适 的 步骤 , 既 要 确 
保 所 有 步骤 处 于 计算 机 能 力 范 围 内 ,又 要 使 算法 的 逻辑 容易 理解 。 
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(4) 大 于 等 于 零 个 数据 输入 。 一 般 的 程序 都 会 要 求 右 干 个 输入 信息 , 即 要 加 工 处 理 的 
“原料 ”。 但 是 ,有 些 特殊 提名 的 “原料 ”也 可 以 在 程序 中 自动 产生 ,此 时 可 以 没有 输入 。 
(5) 至 少 有 一 个 数据 输出 。 算 法 的 目的 是 为 了 解决 一 个 给 定 的 问题 ,解决 的 最 终 目 的 
就 是 给 出 最 后 的 计算 结果 , 即 “ 解 ”, 所 谓 “ 解 ”就 是 输出 。 算 法 在 执行 过 程 中 必须 有 至 少 一 个 
输出 操作 , 即 算法 中 必须 有 输出 数据 的 步骤 。 但 是 贷 法 的 输出 不 一 定 就 是 计算 机 的 打印 输 
出 。 一 个 算法 得 到 的 结果 就 是 算法 的 输出 ,没有 输出 步骤 的 算法 是 军 无 意义 的 。 


1.4.2 算法 评价 指标 


在 算法 设计 中 ,只 强调 算法 特性 还 不 够 ,我 们 还 要 考虑 算法 的 质量 问题 。 用 计算 机 解决 
-个 问题 ,可 能 有 硅 二 个 不 同 的 求解 算法 ,从 中 要 找到 最 适合 的 算法 。 评 价 算法 质量 常用 以 

下 5 个 指标 。 

(1) 正确 性 。 算 法 的 正确 性 是 评价 一 个 算法 优 沙 的 最 重要 的 标准 。 算 法 的 正确 性 不 能 
主观 腾 断 ,必须 经 过 严格 验证 。 

(2) 高 效率 。 这 里 的 效率 包括 时 间 和 空间 两 个 方面 。 一 个 好 的 算法 应 该 是 执行 速度 
快运 行 时 间 短 、 占 用 内 存 空间 少 的 算法 ， 

(3) 可 读 性 。 一 个 好 的 算法 应 是 一 个 人 们 容易 阅读 理解 的 算法 。 好 的 可 读 性 有 助 于 确 
保 正 确 性 。 采 用 科学 .规范 的 设计 方法 可 提高 算法 的 可 读 性 和 正确 性 。 

(4) 通用 性 。 一 个 好 的 算法 要 尽 可 能 适用 于 一 类 问题 的 求解 ,提高 通用 性 ,而 不 是 针对 
个 体 。 

(5) 容错 性 。 容 错 性 是 指 一 个 算法 对 不 合理 数据 输入 的 反应 能 力 和 处 理 能 力 ,也 称 为 


1.4.3 算法 的 表示 


为 了 表述 一 个 算法 ,需要 选择 合适 的 描述 工具 。 常 用 的 有 自然 语言 .流程 图 、N-S 流 
图 .PAD 图 、 伪 代码 等 。 

1. 用 自然 语言 表示 算法 

自然 语言 就 是 人 们 日 常 使 用 的 语言 ,可 以 是 汉语 、 英 语 或 其 他 文字 。 用 自然 语言 表示 算 
法 通俗 易 懂 、 灵 活 多 样 ,但 文字 元 长 ,容易 产生 政 义 。 因 此 ,除了 那些 徐 单 的 问题 和 对 初学 者 
来 说 ,在 算法 设计 中 一 般 不 使 用 自然 语言 表示 算法 。 

【 例 1-1】 输入 三 个 数 a、b、c, 计 算 它 们 的 算术 平均 值 和 几何 平均 值 。 设 计 并 用 日 然 语 
言 描 述 其 算法 。 

第 1 步 ; 输入 二 个 数 a,b,c。 


第 2 步 : 利用 公式 2- 计算 算术 平均 值 ,并 赋值 给 avel。 


第 3 步 : 利用 公式 VaXbxXc 计 算 几 何平 均值 ,并 赋值 给 ave2。 

第 4 步 : 输出 计算 结果 。 

第 9 步 : 结束 。 

这 里 avel 、ave2 是 定义 的 两 个 变量 ,作用 是 存放 计算 的 结果 。 用 S1、S2… 代 表 第 1 步 、 
第 2 步 …,S 是 Step( 步 ) 的 缩写 ,这 是 写 算法 的 习惯 用 法 。 算 法 可 改 瑟 如 下 : 
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Sl1: 输入 三 个 数 a,b,c 
S2. (albce)/3 一 avel 
S3: VaXbXxec 一 ave2 
S4; 输出 avel 和 ave2 的 值 
S5 : 结束 
【 例 1-2】 求解 一 元 二 次 方程 ax 十 bx 十 c=0 的 实 根 。 设 计 并 用 自然 语言 描述 其 算法 。 
S1: 输入 方程 系数 a,b,c 
S2: bb 一 4ac 之 d 
S3: 夺 d 宇 0, 则 转 到 S4 ,否则 转 到 S8 
bY > 
一 一 一 bd —> Xx2 
S6: 输出 xl 和 x2 的 值 
S7: 转 到 S9 
S8: 输出 “该 方程 无 实 根 。” 
S9: 结束 
【 例 1-3】 计算 并 输出 12X3X4X5 的 结果 。 设 计 并 用 自然 语言 描述 其 算法 。 
Sl: 1 一 
3S2: 1 一 1 
s3; 车 <5, 则 转 到 S4 ,否则 转 到 S7 
S4: pxl 字 P 
S5 : 1 十 1 字 1 
S6: 转 到 S3 
S7; 输出 p 的 但 
S8: 结束 
2. 用 流程 图 表示 算法 
象 , 兄 于 理解 。 美 国 国 家 标准 化 协会 (American National Standard Institute, ANSD) 规 定 了 
- 些 常用 的 流程 图 符号 , 见 图 1.4, 已 为 各 国 程序 设计 者 普遍 采用 。 


( 起 止 杠 | -一 一 流程 线 


S4: 


9D : 


年 ss | 
C) 连接 所 


> 判断 杠 


1.4 流程 图 符号 
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【 例 1-4】 将 例 1-1 的 算法 用 流程 图 表示 。 输 入 三 个 数 a、b、c, 计 算 它 们 的 算术 平均 值 
和 几何 平均 值 ,如 图 1.5 所 示 。 
【 例 1-5】 将 例 1-2 的 算法 用 流程 图 表示 。 求 解 一 元 二 次 方程 ax 十 bx 十 c= 二 0 的 实 根 ， 
如 图 1.6 所 示 。 
【 例 1-6】 将 例 1-3 的 算法 用 流程 图 表示 。 计 算 并 输出 1X2X3X4X5 的 结果 ,如 
图 1.7 所 示 。 


到 1.5 求 平 均值 1.6 求实 根 图 1.7 求 阶乘 


为 了 提高 算法 的 质量 ,使 算法 的 设计 和 阅读 方便 ,人 们 设想 ,如 果 规 定 出 几 种 基本 结构 ， 
巾 这 些 基 本 结构 按 一 定 规律 组 成 一 个 算法 结构 (如 同 用 一 些 基 本 构件 来 措 积 木 一 样 ) ,整个 
算法 的 结构 是 由 上 而 下 地 将 各 基本 结构 排列 起 来 ,这 样 算法 的 质量 就 能 得 到 保证 和 提高 。 

1966 年 ,Bohra 和 Jacopini 提出 了 三 种 基本 结构 : 顺 友 结构 、 选 择 结 构 和 循环 结构 ,如 
图 1. 8 所 示 , 用 来 表示 一 个 良好 算法 的 基本 单元 。 

三 种 基本 结构 有 以 下 共同 特点 。 

(1) 只 有 一 个 人 口 。 图 1.8(a) 一 图 1.8(f) 中 的 a 点 为 人 口 点 。 

(2) 只 有 一 个 出 口 。 图 1. 8(a) 一 图 1.8(f) 中 的 b 点 为 出 口 点 。 注 意 ,一 个 菱形 判断 框 
有 两 个 出 口 ,而 一 个 选择 结构 只 有 一 个 出 口 ,不 要 混 消 。 

(3) 结构 内 的 每 一 部 分 都 有 机 会 被 执行 到 。 

(4) 结构 内 不 存在 “ 死 循 环 ”( 无 终止 循环 ) 。 

已 经 证 明 , 由 以 上 三 种 基本 结构 顺序 组 成 的 算法 结构 可 以 解决 任何 复杂 问题 。 由 基本 
结构 所 构成 的 算法 属于 “结构 化 ”算法 。 

3. 用 N-S 流程 图 表示 算法 

用 基本 结构 的 顺序 组 合 可 以 表示 任何 复杂 的 算法 结构 ,那么 ,基本 结构 之 间 的 流程 线 就 
可 以 去 挤 了 了 。1973 年 ,美国 学 者 I[ Nassi 和 B. Shneiderman 提出 了 一 种 新 的 表述 算法 的 
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(d) 当 型 循环 (e) 直到 型 循环 
图 1.8 


(人 计数 型 循环 
三 种 基本 结构 


流程 图 形式 一 一 N-S 流程 图 。N-S 流程 图 中 完全 去 反 了 市 区 头 的 流程 线 , 全 部 算法 与 在 矩 
形 框 内 , 框 内 可 以 包含 其 他 从 属于 它 的 框 。N-S 流程 图 适 于 结构 化 程序 设计 ,提高 了 可 


N-S 流程 图 符号 比较 简单 ,三 种 基本 结构 如 图 1.9 所 示 。 


Ea 
(a) 顺序 结构 


(b) 选择 结构 (c) 当 型 循环 (d) 直到 型 循环 
1.9 用 NS 流程 图 表示 三 种 基本 结构 


【 例 1-7〗】 将 例 1-2 的 算法 用 N-S 流程 图 表示 。 求 解 一 元 二 次 方程 ax* 十 bx 十 c= 二 0 的 
实 根 ,如 图 1. 10 所 示 。 


【 例 1-8〗 将 例 1-3 的 算法 用 N-S 流程 图 表示 。 计 算 并 输出 1X2X3X4X5 的 结果 ,如 
图 1.11 所 示 。 


抽出 x] 、x2 


图 1.10 求实 根 


1.5 程序 设计 


给 定 一 个 问题 , 当 我 们 找到 解决 问题 的 算法 后 ,接着 就 需要 用 某 种 计算 机 语言 将 这 个 算 
法 表达 出 来 ,最终 得 到 一 个 能 被 计算 机 执行 的 程序 (或 代码 ), 这 个 过 程 称 为 实现 ,也 称 为 与 
代码 CCoding) 。 

算法 是 用 非 形 式 化 方式 表述 的 解决 问题 的 过 程 ,程序 是 用 形式 化 编程 语言 表述 的 精确 
人 代码。 这样 ,算法 设计 和 编写 程序 代码 就 分 别 是 用 计算 机 解决 问题 时 的 两 个 不 同 阶段 。 我 
们 经 党 在 广义 上 使 用 “程序 设计 ”这 个 术语 来 沁 指 从 问题 分 析 到 编码 实现 的 计算 机 解 题 全 
过 程 。 

从 某 种 意义 上 来 说 ,程序 设计 的 出 现 甚 至 早 于 电子 计算 机 的 出 现 。 英 国 者 名 诗人 拜 伦 
的 女儿 爱 达 。 勒 天 雷 丝 曾 设计 了 巴 贝 奇 分 析 机 上 计算 人 努力 数 的 一 个 程序 ,她 甚至 还 创建 
了 循环 和 子 程序 的 概念 。 由 于 她 在 程序 设计 上 的 开创 性 工作 , 爱 达 ， 勒 天 雷 丝 锌 称 为 世界 


1.5.1 程序 设计 步骤 


程序 设计 过 程 包括 分 析 、 设 计 、 编 码 .调试 、 编 写 文 档 等 不 同 阶段 。 

(1) 分 析 问 题 。 对 于 接受 的 任务 要 进行 认真 的 分 析 ,研究 所 给 定 的 条 件 ,分 析 最 后 应 达 
到 的 目标 , 找 出 解决 问题 的 规律 ,选择 解 题 的 方法 ,完成 实际 问题 。 

(2) 设计 算法 。 即 设计 出 解 题 的 方法 和 具体 步骤 ,是 程序 设计 的 核心 。 

(3) 编写 程序 。 将 算法 翻译 成 计算 机 程序 设计 语言 ,编写 成 程序 代码 。 

(4) 运行 程序 ,分析 结果 。 运 行 可 执行 程序 ,得 到 运行 结果 。 能 得 到 运行 结果 并 不 意 
着 程序 正确 ,要 对 结果 进行 分 析 , 看 它 是 否 合 理 。 不 合理 就 要 对 程序 进行 调试 ( 即 通 过 上 机 
发 现 和 排除 程序 中 的 故障 的 过 程 )。 

(5) 编写 程序 文档 。 许 多 程序 是 提供 给 别人 使 用 的 ,如 同 正式 的 产品 应 当 提 供 产 品 说 
明 书 一 样 ,正式 提供 给 用 户 使 用 的 程序 必须 回 用 户 提供 程序 说 明 书 。 内 容 应 包括 程序 名 称 、 
程序 功能 、 运 行 环境 ,程序 的 狼 入 和 启动 .需要 输入 的 数据 ,以 及 使 用 注意 事项 等 。 
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1.5.2 程序 设计 方法 

为 了 提高 程序 设计 的 质量 ,提高 效率 ,熟练 掌握 几 种 好 的 程序 设计 方法 是 基本 前 提 。 程 
序 设 计 方 法 种 类 有 很 多 ,主要 包括 结构 化 程序 设计 方法 ,模块 化 程序 设计 方法 和 面向 对 象 程 
序 设计 方法 等 。 不同 的 计算 机 语言 支持 不 同 的 方法 ,有 的 计算 机 语言 只 支持 一 种 特定 方法 ， 
有 的 则 支持 多 种 方法 。 

1. 模块 化 程序 设计 方法 

模块 化 程序 设计 方法 是 一 个 常用 的 有效 的 程序 设计 方法 。 采 用 从 全 局 到 局 部 的 自 顶 
向 下 设计 方法 ,将 复杂 程序 分 解 成 许多 较 小 的 模块 ,解决 了 所 有 底层 模块 后 ,将 模块 组 装 起 
来 构成 最 终 程序 。 每 个 模块 独立 命名 ,通过 模块 名 来 调用 、 访 问 和 执行 ,模块 间 相互 协调 , 共 
同 完成 特定 任务 。 

理论 上 ,模块 应 分 解 得 越 细 越 好 ,但 这 样 模块 数 会 越 来 越 多 。 实 际 上 ,模块 数 的 增加 
会 导致 模块 间接 口 复杂 度 增加 而 效率 降低 ,所 以 模块 数 不 宜 太 多 ,而 是 应 选择 合适 的 模 
块 数 。 

2. 结构 化 程序 设计 方法 

结构 化 程序 设计 方法 是 目前 程序 设计 中 采用 的 主要 方法 之 一 。 结 构 化 程序 设计 概念 是 
由 著名 的 计算 机 科学 家 E. W. Dijikstra 在 1965 年 提出 的 。 结 构 化 程序 设计 方法 使 用 规范 
的 控制 流程 来 组 织 程序 的 处 理 步 骤 , 形 成 层次 清晰 、 边 界 分 明 的 结构 化 构造 ,每 个 构造 具有 
单一 的 入 口 和 出 口 ,从 而 使 程序 易于 理解 . 排 错 、 维 护 和 验证 正确 性 。 方 法 中 的 三 种 基本 控 
制 结构 是 顺序 结构 .选择 结构 .循环 结构 。 结 构 化 程序 设计 的 要 点 是 以 模块 化 设计 为 中 心 ， 
采用 自 顶 向 下 、 逐 步 求 精 方 法 ,使 用 三 种 基本 结构 构造 程序 。 

3. 面向 对 象 程序 设计 方法 

模块 化 和 结构 化 程序 设计 方法 属于 传统 程序 设计 方法 ,要 一 步 步 地 描述 出 解 题 的 过 程 ， 
是 面向 过 程 的 设计 方法 。 而 面向 对 象 编程 方法 是 以 数据 和 操作 融 为 一 体 的 对 象 作 为 基本 单 
位 来 描述 复杂 系统 的 ,通过 对 象 之 间 的 相互 协作 和 交互 实现 系统 的 功能 。 面 向 对 象 程序 设 
计 推 广 了 程序 的 灵活 性 和 可 维护 性 ,在 大 型 项 目 设 计 中 广 为 应 用 。 此 外 ,面向 对 象 程序 设计 
要 比 传统 的 设计 方法 更 便于 学 习 , 因 为 它 能 够 让 人 们 更 简单 地 设计 并 维护 程序 ,使 得 程序 更 
便于 分 析 、 设 计 、 理 解 。 

程序 设计 具有 一 定 的 挑战 性 ,其 中 的 算法 设计 是 具有 创造 性 的 活动 ,要 求 设计 者 具备 问 
题 求解 能 力 和 想象 力 , 能 从 宏观 上 把 握 问 题 的 求解 逻辑 ; 而 编程 实现 算法 则 是 相对 机 械 的 
活动 ,要求 程 序 员 具有 严谨 细致 的 作风 ,能 在 微观 上 关注 细节 。 通 过 理论 学 习 和 动手 实践 ， 
大 家 都 能 学 会 程序 设计 。 

学 习 程 序 设计 有 很 多 好 处 。 首 先 , 计 算 机 已 经 成 为 我 们 生活 .学习 和 工作 中 普遍 使 用 的 
工具 ,学 会 程序 设计 能 使 我 们 成 为 计算 机 的 主人 ,让 计算 机 按 我 们 的 意志 做 事 。 其 次 ,学 习 
程序 设计 能 够 培养 我 们 分 析 、 抽 象 和 解决 问题 的 能 力 (计算 思维 ) ,这 种 能 力 对 日 常生 活 和 工 
作 是 很 重要 的 。 再 者 ,编程 也 是 一 种 充满 乐趣 的 智力 活动 ,发 现 巧妙 的 算法 并 编程 上 机 运行 
成 功 后 的 成 就 感 也 令 人 快乐 。 
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习 是 1 


. 简 述 计算 机 硬件 的 基本 构成 和 工作 原理 。 
. 简 述 计算 机 系统 的 构成 。 
. 什么 是 机 器 语言 .汇编 语言 和 高 级 语言 ? 
.人 简 述 高 级 语言 的 编译 和 解释 过 程 。 
. 什么 是 程序 和 程序 设计 ? 
什么 是 计算 ? 
. 什么 是 计算 思维 ? 计算 思维 建立 的 原则 是 什么 ? 计算 思维 的 基本 应 用 有 哪些 ? 
. 什么 是 算法 ?人 简 述 算法 的 基本 特征 。 
. 简 述 常用 的 程序 设计 方法 。 
10. 用 流程 图 或 N-S 流程 图 摘 述 下 列 问题 的 求解 算法 。 
(1) 求 ax’ 十 bx 十 c= 二 0 的 根 。 分 别 考虑 d= 二 b? 一 4ac 大 于 0、 等 于 0 和 小 于 0 三 种 情况 。 
(2) 输入 5 个 数 , 找 出 最 大 的 一 个 数 并 输出 。 
(3) 输出 2000 一 2200 年 中 的 所 有 国 年 。 国 年 的 条 件 是 : 能 被 4 整除 但 不 能 被 100 整 
除 ,或 者 能 被 100 整除 又 能 被 400 整除 。 
(4) 求 1 十 2 十 3 十 … 十 50 的 值 并 输出 。 
(5) 输入 一 个 班 30 个 同学 的 一 门 课 成 绩 , 求 平均 分 .最 高 分 不 及 格 人 数 和 不 及 格 率 。 
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教学 目标 : 

。 了 解 FORTRAN 语言 发 展 简 史 ; 

。 了 解 FORTRAN95 语言 的 特点 ; 

。 掌握 FORTRAN95 程序 的 基本 结构 ; 
。 熟悉 FORTRAN95 的 编译 环境 ; 

。 掌握 FORTRAN95 编程 的 上 机 步骤 。 


FORTRAN 语言 作为 一 门 专 门 用 于 科学 计算 的 程序 设计 请 言 ,始终 在 科学 计算 领域 占 
据 着 举足轻重 的 地 位 ,拥有 者 庞大 的 用 户 群 。 目 前 国内 外 众多 科研 机 构 的 许多 大 型 程序 都 
是 用 FORTRAN 编写 的 。 


2.1 FORTRAN 语言 发 展 概况 


FORTRAN 语言 是 世界 上 最 时 正式 推广 使 用 的 高 级 程序 设计 语言 , 它 主 要 适用 于 科学 
和 工程 问题 的 数值 计算 。FORTRAN 是 Formula Translation 的 缩写 , 详 为 中 文 是 “公式 翻 
译 ”, 它 是 为 能 够 用 数学 公式 表达 的 问题 而 设计 的 语言 。 

1954 年 ,FORTRAN 被 提出 。1956 年 ,第 一 个 FORTRAN 语言 版 本 在 美国 诞生 ,并 在 
IBM 704 计算 机 上 运行 。 随 后 又 相继 推出 了 FORTRAN 了 [[ (1958 年 ) 和 FORTRAN 
(1962 年 ) 。 

1966 年 ,美国 标准 化 协会 (American National Standard Institute,ANSIT) 在 FEFORTRAN 
K 的 基础 上 ,制定 了 两 级 标准 版 本 : FORTRAN(X3. 9-1966) 和 FORTRAN (X3. 10 
1966)。 这 两 个 版 本 分 别 相 当 于 原来 的 FORTRAN 人 和 FORTRAN ][, 并 将 FORTRAN 
(X3. 9 一 1966) 标 准 人 简称 为 FORTRAN66。 

1972 年 ,国际 标准 化 组 织 (International Standard Organization,1SO) 接 受 了 美国 标准 ， 
在 稍 加 修改 后 公布 了 ISO FORTRAN 语言 的 三 级 国际 标准 , 即 《 程 序 设计 语言 FORTRAN 
ISO 1539 一 1972》, 分 为 完全 级 .中间 级 和 基本 级 。 其 中 完全 级 相当 于 FORTRAN WN, 基本 
级 相当 于 FORTRAN 工 ,中 间 级 介 于 FORTRAN 和 FORTRAN 之 间 。 

FORTRAN RN (C 即 FEORTRAN66) 流 行 了 十 几 年 ,几乎 统治 了 整个 数值 计算 领域 。 但 
在 结构 化 程序 设计 方法 提出 以 后 ,FORTRAN66 日 益 无 法 满足 要 求 , 因 为 FORTRAN66 并 
不 是 一 种 结构 化 的 程序 设计 语言 。 针 对 这 种 情况 ,1976 年 ,美国 标准 化 协会 对 FORTRAN 
(x3. 9 一 1966) 进 行 了 重新 修订 ,吸纳 了 各 计算 机 厂商 的 建议 ,新 增 了 不 少 功 能 ,并 于 1978 年 
4 月 正式 公布 了 新 的 FORTRAN 标准 , 即 FORTRAN(X3. 9 一 1978) 。 新 标准 包括 一 个 全 
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集 和 一 个 子 集 ,并 定名 为 FORTRAN77。1980 年 ,FORTRAN77 被 ISO 接受 为 国际 标准 ， 
即 《 程 序 设 计 语 言 FORTRAN ISO 1539 一 1980》。 

FORTRAN77 获得 了 国际 上 用 户 的 广泛 认可 和 青睐 ,大 多 数 计 算 机 系统 都 配备 了 
FORTRAN77 编译 程序 。 在 过 去 的 年 代 里 ,FORTRAN77 几乎 统治 了 整个 数值 计算 领域 。 
FORTRAN77 还 不 是 完全 的 结构 化 语言 ,但 增加 了 一 些 结 构 化 的 语句 ,能 用 于 编写 结构 化 
程序 。 此 外 ,还 扩充 了 字符 处 理 功 能 ,使 FORTRAN 不 仅 可 用 于 数值 计算 领域 ,还 适用 于 非 
数值 计算 领域 。 

随 着 计算 机 技术 的 飞速 发 展 , 继 FORTRAN 语言 之 后 又 出 现 了 一 些 其 他 高 级 语言 。 尤 
其 是 随 着 面向 对 象 的 程序 设计 方法 得 到 迅速 的 发 展 和 广泛 使 用 的 同时 ,新 推出 了 一 些 “ 面 向 
对 和 象 ” 的 程序 设计 语言 。 如 Visual Basic 语言 、Visual C++ 语言 ,Java 语言 等 。 这 类 新 一 代 
的 高 级 语言 对 FORTRAN 语言 提出 了 严峻 的 挑战 。20 世纪 80 年 代 末 ,为 了 提高 
FORTRAN 语言 的 使 用 率 和 竞争 力 ,FORTRAN 语言 现代 化 研究 开始 兴 

1991 年 ,ANSI 公布 了 新 的 美国 国家 标准 FORTRAN ANSI(X3. 198 一 1991)。 这 一 标 
准 被 ISO 确定 为 国际 标准 FORTRAN ISO/TEC1539 一 1991, 称 为 FORTRAN 90。 
FORTRAN 90 不 仅仅 是 将 已 有 的 语言 进行 了 标准 化 ,更 重要 的 是 发 展 了 FEORTRAN 请 
言 , 汲 取 了 其 他 语言 的 一 些 优 点 ,使 FORTRAN 焕发 新 的 生机 。 新 的 FORTRAN 标准 废弃 
了 过 时 的 严格 的 源 程序 书写 标准 ,改善 了 语言 的 正规 性 ,并 提高 了 程序 的 安全 性 ,功能 有 了 
更 大 的 扩充 ,是 一 个 能 适应 现代 程序 设计 思想 的 现代 程序 设计 语言 。FORTRAN 语言 虽然 
历史 悠久 ,但 其 强大 的 生命 力 在 于 它 能 跟 紧 时 代 的 发 展 ,不 断 地 更 新 标准 ,每 次 新 版 本 推出 
都 在 功能 上 有 一 次 突破 性 进展 。 

1997 年 ,ISO 对 外 公布 了 FORTRAN95。FORTRAN95 是 FORTRAN 90 的 修正 版 ， 
增加 了 新 功能 ,强化 了 并 行 计算 能 力 , 是 具有 强烈 现代 特色 的 语言 ,成 为 目前 科学 计算 领域 
的 最 佳 程序 设计 语言 。 

2003 年 FORTRAN2003 发 布 , 文 持 面 回 对 象 编 程 。2008 年 ,FORTRAN2008 发 布 , 对 
FORTRAN2003 进行 了 小 幅 改 动 。 

学 习 FORTRAN 语言 的 意义 在 于 继承 传统 和 紧 跟 时 代 。FORTRAN 的 目的 是 为 了 产 
生 高 效 的 、 最 优化 的 可 执行 程序 ,用 FORTRAN 编写 的 大 型 科学 计算 软件 具有 明显 优势 , 编 
程 更 为 自然 和 高 效 , 且 易学 易 懂 。 本 书 以 FORTRAN95 标准 作为 编写 依据 。 


2.2 FORTRAN9S 语言 的 特点 


FORTRAN90 这 一 版 本 作为 ANSI 标准 ,增加 了 以 下 新 特性 。 

(1) 自由 格式 源 代 码 输 入 以 及 小 写 的 FORTRAN 关键 字 。 

(2) 模块 将 有 关联 的 过 程 和 数据 组 合 在 一 起 ,使 它们 可 以 被 其 他 程序 单元 调用 ,包括 人 允 
许 限 制 一 些 模块 的 特定 部 分 访问 。 

(3) 改善 了 参数 传递 机 制 ,允许 在 编 详 时 检查 接口 。 

(4) 通用 过 程 的 用 户 目 定 义 接口 。 

(5) 引入 用 户 定义 的 数据 类 型 和 派生 /抽象 数据 类 型 ,提高 了 处 理 能 力 ， 

(6) 引入 了 数组 整体 (或 局 部 数组 ) 运 算 , 简 化 了 数学 和 工程 计算 。 这 些 特性 包括 整体 、 
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部 分 和 通 配 的 数组 赋值 (比如 用 WHERE 语句 做 选择 性 赋值 等 )、 数 组 常数 和 表达 式 、 用 户 
定义 的 数组 函数 和 数组 构造 ,数组 运算 功能 更 强大 。 

(7) 通过 ALLOCATABLE 属性 , ALLOCATE 和 DEALLOCATE 语句 动态 分 配 
内 存 。 

(8) 引入 指针 概念 ,便于 创建 和 操作 动态 数据 结构 。 

1997 年 ,FORTRAN95 发 布 ,与 FORTRAN90 相 比 较 又 增加 了 以 下 全 新 功能 。 

(1) FOR ALL 语句 与 结构 。 

(2) WHERE 结构 的 扩展 。 

(3) 引入 纯 (PURE) 过 程 。 

(4) 逐 元 (ELEMENTAL) 过 程 。 

(5) 默认 初始 化 。 

(6) 标准 函数 CEILING、FLOOR 、 MAXLOC、MINLOC 的 扩展 。 

(7) 引入 NULL 标准 函数 。 

(8) 引入 CPU _TIME 子 例 行 程序 。 

(9) 可 分 配 数 组 的 动态 去 分 配 , 即 对 上 月 动 脱离 作用 域 的 数组 进行 再 分 配 。 

(10) 在 名 称 列 表 输 入 里 面 使 用 注释 。 

(11) 在 使 用 数值 格式 输出 时 ,可 进行 最 小 域 宽 格式 说 明 。 

(12) 用 于 支持 IEEE 754/854 浮 点 运算 标准 的 某 些 修改 ,区 分 十 0 和 一 0。 

FORTRAN95 的 先进 性 体现 在 以 下 几 个 方面 。 

(1) 增加 了 许多 具有 现代 特点 的 项 目 和 语句 ,用 新 的 控制 结构 实现 选择 与 循环 操作 , 真 
正 实现 了 程序 的 结构 化 设计 。 

(2) 增加 了 结构 块 .模块 及 过 程 调用 的 灵活 性 ,使 源 程序 易 读 易 维 护 。 

(3) 吸收 了 了 C 和 Pascal 语言 的 长 处 ,淘汰 或 拟 淘 汰 原 有 过 时 的 语句 ,加 入 现代 语言 的 
特色 。 

(4) 在 数值 计算 的 基础 上 ,进一步 发 挥 了 计算 的 优势 ,增强 了 并 行 计算 功能 。 新 增 了 许 
多 先进 的 调用 手段 ,扩展 了 操作 功能 。 

(5) 增加 了 多 字 节 字符 集 的 数据 类 型 及 相应 的 内 部 函数 。 人 允许 在 字符 数据 中 选取 不 同 
种 别 ,在 源 程序 字符 串 中 可 以 使 用 各 国文 字 和 各 种 专用 符号 ,对 非 英 语 国家 使 用 计算 机 提供 
了 更 大 更 有 效 的 文 持 。 

(6) FORTRAN 早期 版 本 的 程序 仍 能 在 FORTRAN95 编译 系统 下 运行 , 即 具 有 疝 下 
兼容 性 。 


2.3 简单 的 FORTRAN9S 程序 分 析 


为 了 使 读者 对 FORTRAN95 程序 有 一 个 初步 的 了 解 , 下 面 通 过 三 个 简单 的 FORTRAN95 
源 程 序 做 介绍 。 

【 例 2-1】 输入 三 个 数 a、b、c, 计 算 它 们 的 算术 平均 值 和 几何 平均 值 。 

第 1 章 中 已 经 给 出 此 题 的 算法 ,这 里 直接 通过 FORTRAN 语言 将 算法 表述 出 来 ,实现 
程序 编写 (编码 )。 
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FORTRAN95 源 程序 如 下 : 


REAL A, B,C, AVE1, AVE2 ! 变量 定义 说 明 
READ x ,A,B,C ! 输 入 变量 A、B 和 CC 的 值 
AVEl1 = (A+ B+C)/3 ! 计 算 算 术 平 均值 


AVE2= (Ax BxC) x*x* (1.0/3) ! 计 算 几 何平 均值 

PRINT *, "算术 平均 值 为 :",AVEl1  ! 输 出 AVE1 的 值 

PRINT x* , "几何 平均 值 为 :",AVE2 ! 输 出 AVE2 的 值 

END ! 结束 语句 

程序 结构 和 含义 分 析 

第 1 行 是 类 型 说 明 语 句 , 作 用 是 通知 编译 系统 定义 (说 明 ) 变 量 。 这 里 定义 A、B.C 
AVE1、AVE2 变量 为 实 型 变量 ,目的 是 在 计算 机 的 内 存单 元 中 开辟 5 个 与 变 : 量 相对 应 的 存 
储 空 间 , 以 便 存 放 要 计算 机 去 计算 的 数据 和 计算 结果 。 

第 2 行 是 输入 请 名 ,执行 此 语句 时 ,计算 机 等 待 用 户 从 键盘 输入 三 个 数据 ,将 其 分 别 存 
放 到 A .B.C 变量 中 。 

第 3.4 行 是 赋值 语句 ,也 是 计算 部 分 。 计 算 表 达 式 (A 十 B 十 C)/3.0, 求 出 算术 平均 值 , 赋 
值 给 变量 AVE1, 即 将 计算 结果 保存 到 变量 AVE1 中 ; 计算 表达 式 (A x* BxC) xx (1. 0/3)， 
求 出 几何 平均 值 ,赋值 给 变量 AVE2。 程 序 中 的 表达 式 是 数学 表达 式 的 FORTRAN 表示 
pe 

第 5.,6 行 是 输出 语句 ,分 别 输出 保存 在 变量 AVE1 和 AVE2 中 的 算术 平均 值 和 几何 平 
均值 。 

第 7 行 是 END 语句 ,表示 程序 结束 ,每 一 个 
程序 单元 结束 都 要 由 END 语句 作为 标志 。 ’ 

另外 ,程序 中 “1” 后 是 对 程序 的 注释 。 注 释 | pr 
是 非常 重要 的 一 部 分 ,没有 注释 不 能 算 合格 的 程 : 
序 ， er et 容易 阅读 。 

程序 运行 结果 如 图 2. 1 所 示 。 

【 例 ee 求解 一 元 二 次 方程 ax :十 bx 十 c= 二 0 的 实 根 。 

FORTRAN95 源 程序 如 下 : 


“D ee -lx 


REAL A, B,C,D, Xl1, XxX2 
READ ¥* ,A,B,C 
D=BxB-4x*xAxC 
IF(D> = 0)THEN 
Xl1=(—-B+SQORT(D))/(2*x A) 
X2= (—B- SQORT(D))/(2* A) 
PRINT * ,"Xl1 = ",X1 
PRINT x*x ,"X2=",X2 
ELSE 
PRINT x*，," 该 方程 无 实 根 ." 
ENDIF 
END 


程序 结构 和 含义 分 析 
第 1 行 定义 了 A ,B,C,D、Xl1、X2? 六 个 实 型 变量 。 
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第 2 行 是 输入 语句 ,从 键盘 输入 方程 的 三 个 系数 ,分 别 存 放 到 变量 A、B、C 中 。 
第 3 行 是 赋值 语句 ,计算 表达 式 Bx B 一 4* A x*C 的 值 , 即 求 A 的 值 ,赋值 给 变量 D。 
第 4 一 11 行 是 块 IF 结构 ,实现 选择 结构 ,先进 行 条 件 判断 ,判断 条 件 表 达 式 D 三 0 是 否 
成 立 。 如 果 成 立 , 则 执行 THEN 块 部 分 , 即 第 5 一 8 行 语句 ,分 别 计算 出 方程 的 实 根 Xl 和 
all X?2 的 值 并 输出 ,执行 结束 后 程序 流程 会 跳 到 第 
12 行 ; 否则 执行 ELSE 块 , 即 第 10 行 语句 , 输 
出 方程 无 实 根 信息 ,执行 结束 后 程序 流程 会 跳 
到 第 12 行 。 
第 12 行 是 END 语句 ,表示 程序 结束 。 
程序 运行 结果 如 图 2. 2 所 示 。 


“DD:\forpro\exan2\Debug\eran2. EXe”™ 


图 2.2 例 2-2 运行 结果 


【 例 2-3】 分 别 输出 NN 为 5、.7、10 时 的 N1。 

可 以 用 一 个 子 程 序 来 求 阶乘 值 ,通过 调用 求 阶乘 子 程序 分 别 求 出 N 为 5.7、10 时 的 阶 
乘 值 并 输出 。FORTRAN95 源 程序 如 下 : 

PROGRAM EXAM2 3 

PRINT x* ,"N=",5, "N!=", FAC(S) 

PRINT < ,"N=",7, "N=", FAC(7) 

PRINT *,"N=",10, "N!=", FAC(10) 

END 


FUNCTION FAC(N) 
INTEGER N 
FAC=1 
DOI=1,N 

FAC = FAC#x I 
ENDDO 
END 


程序 结构 和 含义 分 析 

源 程序 由 两 部 分 构成 。 第 1 一 5 行 是 主 程序 单元 ,第 7 一 13 行 是 子 程序 单元 。 

先 对 子 程序 做 简要 说 明 。 子 程序 单元 的 第 1 行 ( 源 程序 中 的 第 7 行 ) 是 函数 子 程序 语 
句 ,定义 一 个 函数 名 FAC ,此 子 程序 有 一 个 和 目 变量 N( 虚 参 ) ,在 调用 这 个 子 程序 时 要 给 它 市 
入 一 个 具体 的 值 ( 实 参 ) 。 第 2 行 是 变量 定义 (说 明 ) 语 句 , 说 明 自 变量 N 是 整 型 变量 。 第 3 
行 给 FAC 赋 初 值 1。 第 4 一 6 行 通过 DO 循环 , 求 调用 此 子 程序 时 代入 的 N 值 的 阶乘 ,结果 
保存 在 FAC 中。 第 7 行 ,END 表示 子 程序 到 此 结束 ,返回 调用 程序 ( 主 程序 )。 

再 看 主 程序 。 第 1 行 是 程序 语句 ,表示 主 程序 , 它 的 作用 是 为 程序 起 个 名 字 ,以 便 识 
别 ,这 里 命名 为 EXAM2_3( 意 为 “ 例 2-3”)。 好 的 编程 风格 是 明确 给 出 program, 尽 管 也 可 
以 忽略 (如 前 两 个 例题 ) ,但 是 不 推荐 这 样 做 。 第 2 一 4 行 是 输出 语句 。 以 第 2 行为 例 , 其 
中 FAC(5) 的 作用 是 调用 函数 子 程序 FAC, 在 调用 时 用 数 5 代入 子 程序 的 N, 通 过 执行 子 程 
序 求 出 5!1。 同 样 , 主 程序 的 第 3 行 用 调用 子 程序 FAC, 将 7 代入 , 求 出 7!。 第 4 行 用 调用 子 
程序 FAC, 求 出 101。 

在 此 只 对 子 程 序 的 概念 做 很 简单 的 介绍 ,不 要 求 深 入 了 解 。 第 9 章 将 详细 介绍 其 概念 
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和 应 用 。 
程序 运行 结果 如 图 2. 3 所 示 。 
ee “Di:\forpro\exan\Debur\erand. exe”™ -上 口 |x 
从 例 2-3 可 以 知道 以 下 几 点 。 5N*+= 120.6990 
(1) 一 个 FORTRAN 程序 由 一 个 或 若干 个 we aa 


程序 单元 组 成 。FORTRAN95 程序 单元 包括 主 [| 

程序 单元 .外 部 子 程序 单元 、 模 块 单元 .数据 块 单 

元 。 一 个 程序 中 必须 要 有 且 只 能 有 一 个 主 程序 

单元 。 在 解决 一 个 比较 复杂 的 问题 时 ,可 以 分 别 将 每 一 个 功能 编 为 一 个 相应 程序 单元 ,然后 
像 拱 积木 一 样 将 各 有 关 程 序 单元 组 成 一 个 程序 。 一 个 程序 单元 就 是 一 个 模块 ,结构 化 程序 
设计 方法 需要 采用 模块 化 方法 。 

(2) 每 一 个 程序 单元 都 是 以 END 结束 。 

(3) FORTRAN 程序 的 基本 成 分 是 语句 。FORTRAN 语句 分 为 可 执行 语句 和 非 执 行 
语句 。 可 执行 语句 是 计算 机 在 运行 时 产生 某 些 操作 ,如 赋值 语句 、 输 入 输出 语句 等 。 非 执行 
语句 将 有 关 信 息 通 知 编译 系统 ,以 便 在 编译 时 做 出 相应 的 处 理 , 如 类 型 说 明 语句 .程序 语句 、 
图 数 子 程序 语句 等 。 

(4) 一 个 程序 单元 中 各 类 语句 的 位 置 是 有 一 定 规 定 的 。 例 如 ,PROGRAM 语句 应 是 主 
程序 单元 的 第 一 个 十 句 ,FUNCTION 语句 是 函数 子 程序 单元 的 第 一 个 语句,END 语句 只 
能 在 程序 单元 中 的 最 后 一 行 。 在 以 后 的 学 习 中 ,在 书写 程序 代码 时 请 注意 语句 所 在 位 置 。 


图 2.3 例 2-3 运行 结果 


2.4 FORTRAN95 编译 环境 与 上 机 步骤 


要 编写 并 运行 程序 ,需要 相应 的 开发 工具 。 最 早 微软 公司 推出 Microsoft FORTRAN 
PowerStation 4. 0 开发 环境 ,用 于 FORTRAN90 的 开发 。1997 年 3 月 ,微软 和 数据 设备 公 
司 (Digital Equipment Corp,DEC) 合作 人 研究 ,开发 和 推出 了 Digital Visual Fortran 5. 0。 
1998 年 1 月 ,DEC 与 Compaq 公司 合并 ,DEC 成 为 Compaq 公司 的 全 次 了 于 公司 ,其 后 又 推出 
Compaq Visual Fortran (CVF)。 目前 流行 的 FORTRAN 编译 问 还 有 Intel Visual Fortran 
(IVF) .G95、GFORTRAN 等 。 

本 书 以 Compaq Visual Fortran 6. 5 为 集成 开发 环境 ,介绍 上 机 的 基本 知识 与 步 怒 , 包 
括 进 入 和 退出 环境 ,了 解 第 用 界面 ,建立 工作 空间 、 项 目 ( 工 程 )、 文 件 , 存 储 与 运行 程序 等 。 
在 实验 指导 书 中 还 将 介绍 IVF 开发 环境 。 

Compaq Visual Fortran 6. 5 提供 了 Microsoft Developer Studio 可 视 化 集成 开发 环境 。 
它 将 文本 编辑 硕 、 资 源 编 辑 硕 、 项 目 创 建 工具 、 增 量 连接 关 、 源 程序 浏览 硕 .程序 调试 希 、 信 息 
查询 天 等 集成 在 一 起 ,以 可 视 化 形式 进行 程序 的 编辑 . 编 详 .调试 .运行 等 。 用 户 在 统一 的 视 
窗 界 面 上 操作 完成 程序 的 设计 和 开发 。 微 软 公 司 的 许多 软件 产品 (Visual Fortran、Visual 
C++、Visual Basic 等 ) 人 允许 共享 Microsoft Developer Studio 。 


2.4.1 Compaq Visual Fortran 6.5 的 安 闭 与 司 动 


Compaq Visual Fortran 6.5 的 安放 方法 与 其 他 应 用 程序 的 安放 类 似 。 
局 动 应 用 程序 方法 有 以 下 几 种 。 
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OQ 双击 果 面 上 Microsoft Developer Studio 图 标 。 
@ 选择 菜单 “开始 ”| “所 有 程序 ”| Compaq Visual Fortran 6 | Developer Studio, 如 
图 2. 4 所 示 。 


| CCProwy 


全 _ompag YUal Fortran o 


Depandency Walker 
; valope al r Studio 
ER Error Lookup 


Fortran Command Prompt 


| DynaDoc 
| 加 Macromedia 
| Microsoft Office 


| 加 Real 


二 | Fortran Module Wizard 

By Help Workshop 

IMSL Fortran 90 MP Library Help 

着 IMSL Fortran 30 MP Library Read Me 


COMPAQO 


| I UltraEdit 
| ypInfa 

EE WinRAR 

全 超星 数字 图 书馆 
| 加 超星 阅览 器 


办 QLE-COM Object Viewer 
B21 Cnline Documentation 
时] Cnline Registration 
EPE Per-User 5etup 

陨 Process Viewer 

和 ReadMe 

Release Notes 

党 =p 二 + 

EB | VF Reporter 

站 winDiff 


WAVisual Fortran 


Version 6.5 


| 国 全 山 词霸 2003 

病 卡 卡 上 网 安全 助手 
| 加 启动 

页 瑞星 杀毒 软件 

大 脂 iQa 


This product is licensed to: 
USer 
sfzx 


This sofrware provecred by U.S, and Internanional eopynight laws deseribed in Help Abour 
Compadg Visual Portran ©1997-2M0 Caompaqg Computer Corporation 
Visnal C++® Development Enviromment C1994-20W Microgoft Corporation 


(a) 通过 业 单 启动 (b) 程序 启动 界面 
图 2.4 Compaq Visual Fortran 6.5 启动 过 程 


了 ” 了 ” ” 本 ” ” 到 ” ” ” ” ” 本 ” ” 


@) 选择 菜单 “开始 ”|“ 运 行 ”, 通 过 运行 茉 单项 启动 。 
启动 Compaq Visual Fortran 6. 5 后 将 看 到 如 图 2.5 所 示 的 应 用 程序 窗口 。 


标题 栏 = Lompad Visual Fortran x 
菜单 栏 | Ee Edt Yew Insert Projec Buld Toos Window Hep 
工具 栏 | 首 | 让 日 部 |3》 蝶 记 | 裕 * 叶 7| 芭 | 砚 守 | 


| 沼 沿 疾 国 剖 辣 入 寺 必 


状 侠 栏 Ready yz |umLcotl IRECICOLIOVA IREAD 
2.5 应 用 程序 窗口 
2.4.2 上 机 步骤 


FORTRAN 程序 上 机 运行 一 般 要 经 过 输入 (编辑 ) 源 程序 编译 源 程序 、 连 接生 成 可 执 
行文 件 以 及 调试 运行 程序 几 个 步骤 。 
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按照 程序 设计 步骤 , 遇 到 一 个 问题 后 ,首先 要 对 问题 进行 分 析 , 给 出 求解 算法 (流程 图 )， 
根据 算法 编写 出 程序 代码 ( 源 程序 ) ,然后 进入 上 机 过 程 。 下 面 以 2.3 节 中 的 三 个 例题 为 例 ， 
介绍 FORTRAN 程序 上 机 运行 的 步骤 和 过 程 。 具 体操 作 如 下 。 

1. 创建 工作 空间 

第 一 次 创建 FORTRAN 程序 时 ,首先 应 在 磁盘 上 建立 一 个 工作 空间 , 即 创建 一 个 文件 
夹 ,文件 夹 里 有 两 个 管理 文件 ,通过 工作 空间 来 合理 地 组 织 、 管 理 项 目 和 相关 联 文 件 。 这 里 
建立 一 个 名 为 forpro 的 工作 空间 。 

创建 步骤 如 下 。 

中 选择 File| New 采 单 ,如 图 2.6 所 示 ,弹出 New 对 话 框 ,选择 Workspaces 选项 卡 。 


= Lompag Visual Fortran 


DE … -一 - 
phen.. ctri+o TF ; 
Close | 本 洛 项 目 酸 山 | 稀土 
Cpen Workspace,,, 
Save Workspace 
Close Workspace 


回 SavE 


Save As,,, 
i Save nl 


地 5awe Fortran Environment 


Page Setup,,, 
入 print..， CtritP 
Print Colorized Fortran, ,. 


Recent Files 
Recent Workspaces 


i Exit 


| 国友 Buila Find in Files 1 人 Find in Files 2 


Creates a new document, project or workspace Ln 1, Col1 


图 2.6 创建 工作 空间 一 一 菜单 项 


外 在 名 称 和 位 置 文本 框 中 分 别 输入 工作 空间 名 称 和 上 路径。 路 径 可 以 通过 单 击 右 侧 按 
钮 打开 浏览 窗口 查找 和 定位 ,如 图 2.7 所 示 。 


Newr 
Files | Projects ‘Workspaces | Other Documents 在 对 话 框 由 和 丰 择 Workspac es 过 项 卡 


Workspace name: 


forpro 

Location: 

po 一 = 一 在 Location 中 选择 要 建立 工作 空间 的 
位 置 ， 在 Workspace name 区 本 框 中 横 
入 工作 空间 名 称 ， 然 后 单 击 OK 按 饰 


图 2.7 创建 工作 空间 一 一 对 话 框 
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@) 单 击 OK 按钮 ,创建 完成 新 的 工作 空间 , 回 到 Developer Studio 主 窗口 。 
建立 新 的 工作 空间 后 ,会 在 Developer Studio 主 窗 口 的 工作 空间 管理 窗口 内 建立 新 的 
选项 卡 FileView, 同 时 显示 “Workspace 'forpro':0 project(s)”, 指 出 工作 空间 名 称 和 项 目 
数 , 如 图 2.8 所 示 。 


aa 


ww forpro 一 Compag Yisual Fortran 


| 位 | 态 回国 | 是 虹 | 呈 -全 -| 区 凤 守 | 帅 | "| in 


Workspace "forpro": 0 project[s] 


图 2.8 创建 工作 空间 一 一 成 功 后 


这 时 在 D 盘 上 已 创建 一 个 新 的 文件 夹 D:\forpro, 并 且 生 成 两 个 工作 空间 管理 文件 
forpro. opt 和 forpro. dsw。 以 后 要 打开 工作 空间 forpro, 也 可 以 直接 双击 forpro. dsw 文 
件 ,如 图 2.9 所 示 。 

2. 创建 项 日 

开发 工具 通过 项 目 ( 工 程 ,Project) 来 管理 源 程 
友 文 件 , 并 一 起 作为 编译 程序 单位 ,因此 ,建立 工作 空 
间 后 ,还 要 在 其 中 建立 日 己 的 项 目 。 和 针对 三 个 例题 ， 
在 工作 空间 中 应 分 别 创 建 三 个 项 目 examl、exam2 和 
exam3。 创 建 项 目的 同时 会 在 工作 空间 文件 夹 


| OFT (forpro) 内 生成 三 个 新 的 子 文件 夹 examl1、exam2 和 
exam3 以 及 有 关 项 目 管 理 文件 。 
创建 步骤 如 下 。 


RE 
图 2.9 工作 空间 文件 夹 QO@ 再 次 打开 New 对 话 框 ,选取 Projects 选项 


卡 ,选择 应 用 程序 类 型 为 Fortran Console Application 即 控 制 台 应 用 程序 ,指定 运行 平台 ， 
如 图 2. 10 所 示 。 
@ 在 名 称 文本 框 中 输入 项 目 名 称 , 选 中 Add to current workspace 单 选 按钮 , 单 击 OK 
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按钮 ,如 图 2. 11 所 示 。 


HE 


Files Projects | Workspaces | Other Documents 在 对 医 框 中 偿 拌 Projects 达 项 长 
Fortran COM Serwer Project name: 


Fortran Console Application : 迁 拌 应 用 程 夺 类 型 


| Fortran Dynamic Link Library I 
mFortran Standard Graphics or QuickWin Application Fortran Console Application 


志 |Fortran Static Library Location: 

|Fortran Windows Application ps [ 
:| Makefile 

Ti Utility Project 


全 Create new workspace 


站 Bdd to current workspace 
Dependency of: 


| 司 


Platformis' 


启 je 


图 2.10 创建 项 目 


步骤 1 


而 本 二 
Files Projects | Workspaces | Other Documents | 


Fortran COM Server Project name: 
Fortran Console Application lexaml 一 =r 本 西 中 绽 下 本 
YFortran Dynamic Link Libra 任 Project name 葡 本 杠 中 给 出 项 目 


ny 
Fortran Standard Graphics or QuickwWin Application 的 名 字 ，Location 中 会 显示 出 整个 
过 |Fortran Static Library 


Fortran Windows Application pb forprovexaml 图 Pro] ect 1 人 | 求 位 置 
Makefile 
了 Utility Project 


六 Create new workspace 


® Bdd to current workspace 选中 Add to current workspace 
TT Dependency of 


Platitorms: 


册 n32 


cancel | 
图 2.11 创建 项 目 


步骤 2 


G@) 在 弹出 的 对 话 框 中 选中 An empty project 选项 , 单 击 Finish 按钮 ,如 图 2. 12 所 示 。 
Visual Fortran 6. 5 以 前 的 版 本 不 会 有 这 个 界面 ,而 是 百 接 跳 过 。 

@ 在 弹出 的 对 话 框 中 单 击 OK 按钮 ,如 图 2. 13 所 示 , 即 可 完成 新 项 目的 创建 ,返回 
Developer Studio 主 窗 口 。 这 个 对 话 框 也 只 在 新 版 本 Visual Fortran 6. 5 中 才 会 出 现 , 它 显 
示 Project 打开 后 目 动 生成 的 文件 。 

建立 新 的 项 目 后 ,会 在 Developer Studio 主 窗 口 的 工作 空间 管理 窗口 内 FileView 选项 
卡 中 添加 新 建立 的 项 目 examl files, 同 时 显示 工作 空间 中 的 项 目 个 数 , 如 图 2. 14 所 示 。 
建立 完成 后 的 应 用 程序 主 窗口 中 ,目前 还 没有 任何 源 程序 。 在 工作 空间 文件 夹 forpro 中 
日 动 生 成 项 目 文 件 夹 examl ,在 examl 文件 夹 中 生成 项 目 管 理 文 件 examl. dsp, 如 图 2. 15 
所 示 。 
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Fortran tonsole Applicat1lion 一 Step 1 ot 1 


What kind of Console Application do you want to create? 


‘A simple project,. 


1 B"Hello World" sample project. 


This project will be linking against one or more Fortran DLL Import 
libraries. 


图 2.12 创建 项 目 步骤 3 


Li 


Fortran Console Application will create a new skeleton project with the 
following specifications: 


+ No files will be created or added to the project. 


Project Directory: 


D:\forproVexaml 


Cancel | 


图 2.13 创建 项 目 步骤 4 


年 


forpro 一 Compaq Yisual Fortran 


回回 局 
| File Edit View Insert Project Build Tools Window Help 
| 前 | 中 昌国 | 4 吕 37 全 7 | 四 园 导 | 六 


到 4 
Workspace "forpro": 1 projectls] 


由 Exam1 files 


图 2.14 创建 项 目 一 一 成 功 后 
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文件 他) 编辑 EE) 查看 如 由” 斋 


Oe. © 


ET 国 固形 


jex aml. dsp : 
Project File: 


图 2.15 创建 项 目 一 一 相应 的 文件 夹 
3. 创建 源 程序 文件 
创建 完成 一 个 项 目 (Project) 后 ,还 没有 源 程 序 文件 ,因此 要 在 Project 中 创建 和 编辑 源 
程序 文件 。 这 里 建立 例 2-1 的 源 程序 文件 1. f90。 
创建 步骤 如 下 。 
GO 再次 打开 New 对 话 框 ,选择 Files 选项 卡 ,选择 文件 类 型 为 Fortran Free Format 
Source File ,建立 月 由 格式 的 EORTRAN 源 程序 ,如 图 2.16 所 示 。 


而 已 至 


Files | Projects | Workspaces | Other Documents 在 对 话 框 | | [选择 Files 选 I 本 
浊 Binary File addto project: 选中 Add to project 复 选 框 
| Bitmap File 
BE: Cursor File |examl -| 
Fortran Fixed Format Source File 
Fortran Free Format Source File 


lcon File Fil 文件 天王 这 拌 Fortran 
Da Format Source File 。 在 File 

houree Template 文本 框 中 给 出 文件 名 1， 

国 Text File Location: 然后 单 击 OK 按 钮 
oforproexamn | 


Cancel | 
图 2.16 创建 源 程序 文件 


GO 选中 Add to project 选项 ,在 File 文本 框 中 键入 源 程序 文件 名 。 

(3 单 击 OK 按钮 ,创建 完成 新 的 源 程序 文件 , 回 到 Developer Studio 主 窗口 。 

建立 源 程序 文件 后 ,会 在 FileView 选项 卡 中 项 目 examl 下 添加 新 建立 的 源 程序 文件 
1. f90, 同 时 会 在 右 侧 打开 一 个 空白 文档 窗口 ,用 户 在 文档 窗口 中 输入 (编辑 ) 源 程序 ,如 
图 2. 17 所 示 。 同 时 在 文件 夹 D:\forproNexaml 下 生成 文件 1.f90 ,如 图 2. 18 所 示 。 

4. 编译 源 程序 文件 

源 程序 输入 (编辑 ) 完 成 后 ,需要 对 源 程 序 进行 编译。 在 编译 过 程 中 检查 发 现 以 及 排除 
错误 , 编 详 通过 后 生成 中 间 文 件 ( 扩 展 名 为 .obj, 又 称 目 标 文件 ) ,以 便 连 接 和 运行 。 

编译 前 可 根据 需要 设 定 有 关 人 参数 ,这 里 不 再 讲解 ,一 般 采 用 默认 设置 。 

对 项 目 内 源 程序 文件 进行 编译 ,可 采用 以 下 4 种 操作 方式 。 

Q 选择 Build| Compile 1. f90 命令 ,执行 编译 ,如 图 2. 19 所 示 。 

色 单 击 Build 工具 栏 中 的 编译 按钮 缆 ,执行 编 详 。 

@ 按 Ctrl 十 F7 键 。 
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‘forpro 一 Compag Yisual Fortran 一 [D:\forpro\exanl\l.f90] 


| 国 Pile EL ue i eo Boald Toe Wind Hele 


| 前 | 切 CLII 国生 -| 


/ ne ‘forpro": 1 project[s 


口 "| examl files 
二 Source Files 


本 Header Files 


… 国 Resource Files 


real ab,c,aue1 ,aue 过 

read 闪 , 引 hb ,CC 

ave1=ta+b+c}/3 

ace2= a By731 

print =#， : ",avel1 
print #， 时 冤 让 交 :" ,aue2 
end 


Ln 8 Col 1 


图 2.17 创建 源 程序 文件 


文件 邓 ) CC 查看 ”| 诗 


|1. £90 examl. ea 


图 2.18 源 程 序 文件 夹 窗 口 


"forpro Conmpmag Tisual Fortran [D:\forpro\exanl\l. fa90] 


J Tdit Viow LInsert Project [Build Tools Vindow Help 
绚 启 | 总 SE] Conpile 1. £90 Ctrl+FT 


i 
ie 


Build examl], exe 


三 并 Eebuild 委 1 


所 
田 Workspace forpro': 1 project 
口 -下 到 Exam1 files 

-SOUrce Files 

0 

Header Files 
-和 国 Resource Files 


FileView 


习 D:\Forpro\exani\1.F90 


Batch Build... 
Clean 
Update Ml Dependencies... 


start Debue 
Daebugeer Bemote Conmnectlon,.. 


Execute erail. exe CtrltEs 


Set hctiwe Confleuration... 
Configeurations... 
Profile... 


二 -bj 一 8 errorts}), 8 varningtsy) 


iis Buila Find in Files 1 和 4|| 


Compiles the file 


Ln ,Col3 


图 2.19 编译 程序 


IREC ICOL [OvR IREAD 2 


REC |COL |OVR |READ 


= 在 1.f90 文 件 中 输入 
例 2-1 的 程序 代码 


选择 Build 菜 单 中 的 Compile 1.fo0 


命令 (或 单 击 工具 栏 上 的 编译 命令 
按钮 各 ) 编 译 程序 ， 从 下 半音 
output 窗 口中 可 以 看 到 0error(s), 
0 warning(s) 的 结果 ， 表 示 编 详 
过 程 没 有 馈 误 ， 生 成 1.obj 文 件 
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@ 在 工作 空间 窗口 选择 1. {90 文件 , 单 击 鼠标 右键 ,弹出 快捷 沫 单 ,在 快捷 沫 单 中 选取 
Compile examl. {90 命令 ,执行 编译 。 

编译 结束 后 ,在 下 半 部 的 输出 窗口 会 显示 编 诺 结 果 信息 。 如 果 编 详 无 错误 , 则 显示 信息 
“examl. obj - 0 error(s) ,0 warning(s)”, 生 成 目标 文件 ,可 进行 下 一 步骤 操作 ; 否则 显示 错 
误 提 示 信 息 。 如 果 有 错误 ,用 户 需 要 通过 提示 信息 的 帮助 去 修改 错误 ,然后 重新 编译 ,和 直到 
编译 通过 (无 错误 ) ,生成 目标 文件 为 止 

编译 无 错误 结束 后 ,在 项 目 文 件 夹 examl 下 会 创建 Debug 文件 夹 , 在 Debug 文件 夹 下 
生成 目标 文件 1. obj 和 有 关 编 详 信 息 的 数据 库 文件 DF60. PDB。 在 项 目 文件 夹 examl 下 生 
成 有 关 源 程序 编 详 的 管理 文件 examl. plg 文件 ,如 图 2. 20 所 示 。 


文件 字 ) ”编辑 外 ) 查看 外 +t” 有 文件 外 _ 罗 相思 查看 0 4” 各 


地 直 O) | 有 有 


DFBO. POE 
lntermediate File 
25 EB 


图 2.20 目标 文件 的 文件 夹 和 文件 


5. 构建 可 执行 程序 

编译 产生 的 1. obj 文件 还 不 能 直接 运行 ,必须 构建 生成 可 执行 文件 (扩展 名 为 . exe) 才 
能 在 计算 机 上 和 运行。 程序 构建 (也 称 连接 ) 是 将 1. obj 文件 与 系统 提供 的 有 关 环 境 参 数 、 预 
定义 子 程序 和 预定 义 函 数 等 连接 在 一 起 ,生成 完整 的 可 执行 程序 代码 。 在 构建 过 程 中 也 要 
检查 发 现 以 及 排除 相关 错误 。 

对 1. obj 文件 进行 构建 ,可 以 采用 以 下 4 种 操作 方式 。 

OQ 选择 菜单 Build| Build examl. exe, 执 行 构建 ,如 图 2. 21 所 示 。 


EOFDE0 — Commpmagq Yisual Fortran — [DV\forpro\erzanml\l. E90] 
[nl File Edit View Insert Froject Build Tools Window Help 


||xa | -= y | "Conpile 1. £90 ctrltmr | ll I 

| 间 | 史 日 重 ， = ”ET | = 选择 Build 菜 单 中 的 Build exam1. 
多 疯 症 二 Bouild | 要 exe (或 单 击 工具 栏 上 的 构建 命 
-一 4 Batch Baild 医 | 令 按 钮 茵 )， 构 建 可 执行 程序 ， 
网 Workspace "forpro': 1 project Claan 人 a | 

E 蜀 exam1 files Update A Depandenecies... 计算 站 ee 肖 由 和 平均 1 全 从 下 半 部 output 窗 口中 可 以 看 到 
3 ‘a Source Files a | ,avel ek 值 0 error(s)，0 warning(s) 的 结果 ， 

t 


: Start Debue | 
芭 |1.190 | .90 pr" 。 、 本 i 
四 人 Files Debugger Bemote Conmection,... UE 外 出 ave2 的 值 表示 省 有 和 局 I 生成 exam l .exe 


Resource Files 卫 下 而 已 位 七 看重 轩 直 二 ， 训 和 并 CtrltFs 文件 


St hetiwe Confiaeration .. 


Confi sur ati ons 


Builds the project Ln 8, Goll 


2.21 构建 可 执行 程序 
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让 


i ,执行 构建 。 


@ 单 击 Build 工具 栏 的 构建 按钮 

G@) 按 F7 键 。 

由 在 工作 空间 窗口 选择 examl 项 目 , 单 击 女 标 右 键 弹出 快捷 亲 单 ,在 快捷 菜单 中 选取 
Build (selection only) 亲 单项 ,执行 构建 。 

构建 结束 后 ,在 输出 窗口 会 显示 构建 结果 信息 。 如 果 构 建 无 错误 ,显示 信息 “examl. 
exe - 0 error(s),0 warning(s)”, 生 成 可 执行 文件 ; 否则 显示 错误 提示 人 信息。 如果 有 和 钳 误 ， 
同样 ,用 户 需 要 通过 提示 信息 的 帮助 去 修改 错误 ,然后 重新 编译 .构建 ,直到 构建 通过 (无 错 
误 ) 生 成 可 执行 文件 为 止 。 正 确 构 建 完成 后 ,在 Debug 文件 夹 下 生成 可 执行 文件 examl. 
exe, 如 图 2. 22 所 示 。 


查看 @ ”了 大 


女 件 于) 编辑 全 ) 


地 址 0) | 四 0: \forpro\examl .I 转 和 到 


慰 TE60 FNE 
”examl 


2 examl.pdb 


图 2.22 可 执行 文件 


.运行 程序 
er 文件 ) 后 ,就 可 以 运行 该 程序 ,得 到 运行 结果 。 
运行 可 执行 程序 的 方式 有 很 多 种 ,一 般 采 用 以 下 三 种 方法 之 一 ,如 图 2.23 所 示 。 


辐 四 加 
F 国 FiLle Edit View Insert Froject Build Tools Window Hel | 并 
二 Ea £ 二 主攻 ] Ea 十 EE erP 二 | 后 
% 柄 写 | 之 > conpile 1. fon Ctrl+FT -| : 

Build examl. exe FT | 
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Rebuild Ml \ 
划  Bateh Byild.. 重生 义 训 = 
凯 Workspace 'forpro': 1 project Clean 
5- 僵 exam1 files 
ED- Source Files 


加 |1.190| a ，aue2 


| | Header Files Debuageer Remote Lonmnectlon .. 


Updute All Deperdenmeios,.. 
doh 


‘输出 ave2 的 什 


Resource Files ' Execute 章 辽 而 硬 下 ， 看 拓 间 Ctrlt+Fs | 


Set hetive Confleuration.. 


Confieur ations... 
Profile,,. 


到 FileView | 


= Configuration: exam]1 - Win32 Debug 
J Linking.. 


examl .exe — 0 error(s), 0 warning(s) 


hh Build / Debug 入 Find in Files 1 入 |4|| 


Executes the program 


六 2 


选择 Build 茉 单 中 的 Execute 
examl .exe ( 戈 年 击 工 只 术 上 
的 运行 命令 按钮 上 )， 运 行 
程序 
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。 选择 荣 单 Build|Execute examl. exe, 运 行程 友 ; 
。 单 击 Build 工具 栏 中 的 运行 按钮 4 ,运行 程序 ; 
要 按 Ctrl 十 FE5 键 。 
执行 后 会 看 到 程序 运行 结果 ,如 图 2. 24 所 示 。 
[x 


1.0.2.0.3.0 [| 输入 数据 1.0，2.0，3.0 后 按 Enter 键 


算数 平均 值 为 : 55l5l 一 回 车 )， 显 示 运 算 结 果 
几何 半 井 值 汶 : 1.81?121 (加 车) 到 ~ 


Press any key to continues 


图 2.24 输入 数据 ,显示 运行 结果 


这 时 例 2-1 的 程序 上 机 过 程 完 成 。 如 果 继 续 编辑 、 编 译 、 构 建 ( 连 接 )、 运 行 例 2-2 和 
例 2-3 程序 ,不 用 再 创建 工作 空间 ,只 需要 重复 步骤 2 至 步骤 6, 在 已 有 forpro 工作 空间 中 
建立 exam2 和 exam3 项 目 以 及 相关 程序 文件 并 重复 编 详 .连接 .运行 步骤 即 可 。 

以 上 介绍 了 开发 FORTRAN 程序 的 基本 过 程 与 步 坚 。 从 中 我 们 可 以 看 到 在 Developer 
Studio 中 ,通过 工作 空间 和 项 目 来 合理 地 组 织 文 件 , 其 功能 类 似 Windows 中 的 资源 管理 大 。 
用 户 可 根据 所 开发 程序 类 型 创建 多 个 工作 空间 (类 似 文件 夹 ) ,每 一 个 工作 空间 根据 要 求 可 
创建 多 个 项 目 ( 类 似 子 文件 夹 ) ,每 个 项 目 pe btu 文件 .资源 文件 或 其 他 
相关 文件 。 一 个 项 目 最 简单 的 情况 是 只 有 一 个 源 程序 文件 ,如 以 上 三 个 项 目 (examl、 
exam2 .exam3) 。 有 用户、 工作 空间 、 项目 和 文件 的 关系 如 图 2. 25 所 示 。 


源 程序 文件 321 资源 文件 321 | | ”其 他 文件 


图 2.25 有 用户、 工作 空间 ,项目 和 文件 的 关系 


: 在 工作 空间 中 所 包含 的 多 个 项 目 里 ,只 有 一 个 是 处 于 活动 状态 的 项 目 , 只 有 处 于 
yee A 以 及 进行 编译 ,构建 ( 连 接 )、 运 行 和 调试 操作 。 要 
想 知 道 当 前 哪个 项 目 处 于 活动 状态 ,可 以 通过 人 菜单 中 的 Set Active Project 来 查看 
或 激活 某 一 个 项 目 。 激活 项 目 也 可 以 通过 在 工作 空间 窗口 中 选中 待 激活 项 目 , 单 击 鼠 标 碳 
键 璋 出 快捷 菜单 ,在 快捷 菜单 中 选择 Set as Active po 来 实现 ,如 图 2.26 所 示 。 

本 方 介绍 了 Compaq Visual Fortran 最 基本 的 功能 ,如 果 没 有 特别 说 明 , 本 书 中 所 有 的 
程序 都 通过 上 面 的 方法 来 编译 。 对 于 Compaq Visual Fortran 6. 5 编 详 调试 环境 ,还 需要 旋 
者 通过 多 上 机 调试 、 运 行程 厅 来 熟悉 与 向 握 。 
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的 是 当前 话 动 项 目 


图 2.26 多 项 目 空 间 工 作 窗 口 


习 是 


2 


. FORTRAN 语言 的 主要 特征 是 什么 ? 简 述 FORTRAN 语言 的 发 展 过 程 。 


1 
2. FORTRAN95 的 主要 特征 是 什么 ? 
3 


3. 人 简 述 FORTRAN95 的 程序 结构 。 主 程序 单元 和 其 他 程序 单元 的 区 别 是 什么 ? 
4. 什么 是 Microsoft Developer Studio? 它 与 Compaq Visual Fortran 6.5、FORTRAN95 有 


何 关 系 ? 


5。Microsoft Developer Studio 引入 工作 空间 和 项 目的 概念 ,目的 是 什么 ” 用户, 工作 


空间 、 项目 及 文件 的 关系 是 什么 ? 


6. 写 出 FORTRAN95 的 源 程 序 文 件 、 目 标 文 件 和 可 执行 文件 的 扩展 名 。 


7. 简 述 FORTRAN 语言 程序 的 上 机 步骤 。 


FORTRAN9GS 程序 设计 初步 


教学 目标 : 

。 了 解 FORTRAN95 字符 集 、 标 识 符 和 关键 字 ; 

。 了 解 FORTRAN95 程序 的 固定 书写 格式 ; 

。 掌握 FORTRAN95 程序 的 自由 书写 格式 ; 

。 掌握 FORTRAN95 的 六 种 基本 数据 类 型 的 表示 及 存储 方式 ; 
。 掌握 六 种 直接 常量 的 合法 表示 方式 ; 

。 学 握 符 号 常量 的 使 用 方法 ; 

。 掌握 变量 的 命名 方式 和 变量 的 三 种 说 明 方 法 ; 

。 掌握 FORTRAN95 的 算术 运算 符 、 算术 表达 式 及 其 运算 顺序 ; 
。 了 解 FORTRAN95 标准 函数 并 掌握 部 分 常用 的 标准 函数 。 


本 章 将 介绍 FORTRAN95 程序 中 用 到 的 一 些 基本 要 率 : 书写 格式 、 数 据 类 型 .向 量 
量 、 运 算 和 从 、 表 达 式 标准 尔 数 等 ,它们 是 构成 FORTRAN 程序 的 基本 组 成 部 分 。 


3.1 FORTRAN9S 的 字符 集 、 标 识 从 和 关键 字 


3.1.1 字符 集 


FORTRAN95 的 字符 集 就 是 编写 FORTRAN95 源 程序 时 能 够 使 用 的 全 部 字符 及 符号 
的 集合 。 包 括 : 

。 英文 字母 a~z 及 A 一 Z; 

”阿拉 但 数字 0 一 9; 

” 22 个 特殊 字符, 列举 如 下 。 


= + 一 关 /();.:'"! ;多 &g<>?$ 空格 (Tab) 


在 用 字符 集 编 与 源 程序 时 需要 注意 以 下 两 点 。 

(1) 除 字 符 型 常量 外 , 源 程 序 中 不 区 分 字母 的 大 小 写 , 如 语句 “REAL a” 和 “REAL 
A? 是 等 价 的 。 

(2) FORTRAN95 字符 集 以 外 的 可 打印 字符 ,只 能 出 现在 注释 .字符 篆 量 .字符 串 编 辑 
符 和 输入 输出 记录 中 。 


3.1.2 标识 符 


标识 符 即 名 称 , 用 来 在 程序 中 标识 有 关 实 体 ( 如 变量 、 和 从 
块 数组 ,模块 和 形 参 等 )。FORTRAN95 规定 标识 符 只 [能 由 


导 篆 量 、 困 数 、 程 序 单元 、 公 用 
字母 数字、 下 画 线 ^″ ”和 美元 
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和 从 号 “$$” 组 成 ,有 旦 起 始 字 和 从 必须 是 器 请 字 母 。 
【 例 3-1】 判定 下 列 标 识 符 中 哪些 是 合法 标识 符 ? 哪些 是 非法 标识 符 ? 解释 非法 标识 
符 的 错误 原因 。 
number,max, X-YZ, 小 红 ,8 _ student,b. 4,china，abc,$ write,read,a$b,a? b ec。 
合法 标识 从 有 : number,max,china,a 中 b。 
韭 法 标识 从 有 : X-YZ, 小 红 ,8 student,b.4，abc,$ write,read,a? b cs 
表 3. 1 给 出 了 非法 标识 符 的 错误 原因 。 
表 3.1 非法 标识 符 错 误 原 因 
非法 标识 符 非法 标识 符 错误 原 
X-YZ 标识 符 中 含 减 号 “一 ” 首 字符 是 下 夯 线 “_” 
a 和 
8_student 标识 符 的 首 字符 是 数字 包含 空格 
b. 4 标识 符 中 含 小 数 点 “.” 包含 特殊 符号 “?” 


关键 字 是 FORTRAN95 中 的 一 种 特定 字符 串 。 如 语句 “READx* ,A,B” 中 的 “READ” 
是 关键 字 , 类 似 的 关键 字 有 PRINT、WRITE、INTEGER、DO、IF、THEN、END、 
SUBROUTINE、FUNCTION 等 。 在 编 详 环境 中 ,正确 的 关键 字 会 以 蓝 色 字符 显示 。 关 键 
字 都 有 特定 的 含义 ,在 程序 中 有 具体 的 位 置 要 求 , 不 能 随意 改变 ,否则 将 产生 语法 错误 。 

FORTRAN95 对 于 关键 字 不 也 保留 , 即 允 许 关 键 字 作为 其 他 实体 的 名 称 。 也 就 是 说 ， 
用 户 可 以 将 自己 的 变量 名 、 数 组 名 等 命名 为 INTEGER、PROGRAM.、PRINT、DO 等 关键 
字 , 编 详 程 序 会 根据 上 下 文 来 识别 一 个 字符 串 究竟 是 关键 字 还 是 实体 名 称 。 不 过 不 建议 这 
样 做 ,因为 使 用 关键 字 作 为 实体 名 称 会 导致 程序 难以 理解 和 阅读 。 


3.2 FORTRAN9S 程序 的 书写 格式 


每 种 程序 设计 语言 对 程序 书写 格式 都 有 具体 的 规定 ,书写 格式 反映 了 程序 语言 独特 的 
书写 风格 。FORTRAN 语言 程序 的 书写 格式 有 两 种 : Fixed Format (固定 格式 ) 和 Free 
Format( 明 由 格式 )。Fixed Format 是 传统 的 书写 方式 ,对 于 书号 内 容 应 在 哪 一 行 哪 一 列 上 
都 有 严格 规定 ,过 于 刻板 。Free Format 是 FORTRAN90 后 引入 的 新 写法 ,取消 了 许多 固 
定格 式 的 限制 ,在 合乎 语法 的 前 提 下 ,程序 设计 人 员 有 了 更 大 的 日 主 空间 ,可 以 视 具体 情况 
灵活 选择 使 用 。 值 得 注意 的 是 ,以 Fixed Format 来 编写 的 FORTRAN 程序 文件 扩展 名 为 
< . for, 以 Free Format 来 编写 的 程序 文件 扩展 名 为 * .了 {90。 

3.2.1 固定 格式 

固定 格式 规定 : 一 个 程序 单元 由 若干 行 语句 构成 ,每 行 80 个 字符 ,分 成 4 个 区 (标号 
区 . 续 行 区 .语句 区 .注释 区 ) ,每 一 区 都 有 严格 的 起 止 范围 ， 

(1) 第 1 一 5 列 为 标号 区 。 标 号 最 多 为 5 位 数字 ,数字 中 的 空格 不 起 作用 。 标 号 大 小 与 
程序 执行 顺序 无 关 , 语 名 可 以 不 带 标 号 。 标 号 区 第 一 个 字符 为 “性 ,表示 该 行为 注释 行 。 在 
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星期 版 本 (如 FORTRAN77) 中 规定 ,第 一 个 字符 为 “C” 或 ”x ”表示 该 行为 注释 行 。 

(2) 第 6 列 为 续 行 区 。 续 行 标志 为 除 空 格 和 和 零 以 外 的 任何 FORTRAN 字符 。 注 意 , 注 
释 行 没有 续 行 的 概念 , 续 行 不 能 使 用 语句 标号 。 

(3) 第 7 一 72 列 为 语句 区 。 语 句 愉 能 书写 到 语句 区 ,一行 只 能 与 一 个 诗句 ,如 果 一 个 请 
句 写 不 下 ,可 使 用 一 个 或 多 个 续 行 。 

(4) 第 73 一 80 列 为 注释 区 。 注 释 区 中 的 注释 不 需要 给 出 注释 行 的 标志 符 。 
3.2.2 自由 格式 

在 上 自由 格式 源 程 序 中 ,书写 不 再 受 分 区 和 位 置 限 制 。 目 由 格式 规定 : 

机 lev th 每 行 可 以 编写 132 个 字符 。 

- 行 可 以 写 多 个 语句 ,语句 之 间 用 语句 分 隐 标 志 符 “;“ 作 间 隔 ,但 一 行 的 最 后 一 个 

语句 my 标点 符号 。 例 如: 

X= 3; y= 4.65; z= xXx+yvy 

(3) 一 个 语句 较 长 时 可 以 写 在 多 行 , 除 第 一 行 外 其 他 行为 续 行 。 在 Visual Fortran 6. 5 
编译 环境 下 ,对 续 行 数 无 限制 。 如 有 续 行 ,需要 使 用 续 行 标志 符 “ 必 ”实现 。 续 行 标 志 符 “ 必 ” 
出 现在 前 一 行 的 末尾 。 例 如 


y= cos(atan(sqrt(xx*x 3+yxx*x3)/(xxx2+1)))+cos(xx*xYy/(sqrt(xxx 2+yxx2)))+& 
exp(ax*xXxx*2+bx*xXxt+c) 


如 果 把 一 个 语句 名 、 函 数 名 等 FORTRAN 中 具有 特定 意义 的 字符 分 成 两 行 ,那么 除 在 
上 一 行 行 末 加 续 行 标志 符 外 ,还 要 在 下 一 行 的 开头 再 加 一 个 续 行 标志 符 ,这样 才能 将 分 离 的 
字符 当 作 一 个 完整 的 字符 来 处 理 。 例 如 : 


y= cos(atan(sqrt(xxx*x 3+yxx3)/(xxx*x2+1)))+cog& 
&s(Xx vy/(sqrt(xx*x*x 2+vyxx2))) texp(axxx*x*x2+bxxt+c) 


(4) 用 “1” 作 注释 标记 符 。“!1” 可 以 写 在 一 行 的 任 一 位 置 ,注释 延伸 至 程序 行 的 结束 。 
注意 ,在 同一 行 的 不 同 语 句 之 间 不 能 插入 注释 ,因为 “1 后 的 语句 部 会 被 视 为 注释 部 分 。 


3.3 FORTRAN9S 的 数据 类 型 


程序 人 处理 的 对 象 是 数据 。 不 同类 型 的 数据 具 


整 刑 
有 不 同 的 特性 、 不 同 的 存储 方式 和 不 同 的 运算 数值 型 买 开 
类 型 。 | 双 精度 型 
加 基本 数据 类 型 复 型 
FORTRAN95 具有 丰 宣 的 数据 类 型 , 见 图 3. 1。 smi he 
本 节 只 介绍 基本 数据 类 型 (又 称 简 单 类 型 ) ,其 他 类 逻辑 型 
型 在 后 续 革 广 中 陆续 介绍 。 数据 类 型 数组 类 型 
指针 类 型 
3.3.1 数值 型 数据 的 表示 及 存储 派生 类 型 
1. 整数 类 型 公用 区 大 于 


FORTRAN95 中 整数 类 型 (INTEGER ) 分 为 图 3.1 数据 类 型 示意 图 
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无 限 的 集合 ,而 在 计算 机 中 整数 的 取 什 范围 受 限 于 其 所 能 表示 的 范围 ,由 其 类 型 决定 。 
表 3. 2 列 出 了 整数 类 型 的 存储 空间 (以 字 节 为 单位 ) 和 取 值 范围 ,如 果 超 出 此 范围 , 则 会 发 生 
溢出 错误 。 如 果 不 指 定 字 节 数 ( 表 3. 2 中 的 第 三 种 情况 ) , 则 默认 为 4 个 字 节 。 
表 3.2 整数 的 存储 空间 及 取 值 范围 
整 型 类 型 名 字 节 数 取 值 范围 
INTEGER(1) 一 128 一 127( 一 27 一 十 27 一 1) 


短 整 型 INTEGER(2) 一 32768 一 32767( 一 25 一 十 25 一 1) 
长 整 型 INTEGER 一 2147483648 一 2147483647( 一 23 ~ 十 23 一 1) 
INTEGER(8) ”| 一 2 ~29 一 ] (Alpha 系统 ) 


实数 类 型 (REALD) 人 简称 实数 ,又 称 为 浮上 点 数 (Floating-Point Number)。 实 数 有 单 精度 
型 和 双 精 度 型 两 种 。 在 机 器 内 部 ,实数 是 以 浮 点 数 形式 存放 的 ,数值 都 是 近似 值 , 而 且 有 误 
差 累 计 。 为 此 ,引进 双 精 度 类 型 , 即 以 两 倍 的 单 精 度 的 存储 空间 来 存放 数据 , 减 小 累计 的 截 
断 误 差 , 大 幅度 提高 计算 的 精度 。 实 数 通 党 有 两 种 表示 形式 : 十 进 制 小 数 形式 和 指数 形式 。 
在 表示 实数 时 ,312.0、3. 12e 十 2 或 0. 312E3 都 代表 3. 12X10:。 注 意 , 指 数 部 分 必须 是 整数 
( 苦 为 正 整 数 时 ,可 以 省 略 “ 十 ”号 ) 。 表 3. 3 中 列 出 了 实 型 数据 的 长 度 和 取 值 范围 。 

表 3.3 实数 的 存储 空间 .精度 及 取 值 范围 

实数 类 型 名 精度 (有 效 数字 ) 取 值 范 


单 精度 士 3. 40282347E38 一 士 1. 17549435E 一 38 


双 精 度 | 8 | 16~17 士 2. 2250738585072013D308 一 士 1.7976931348623158D-308 


3. 复数 类 型 

复数 就 是 以 a 十 bi 的 形式 来 表示 的 数值 ,其 中 的 a、b 是 两 个 实数 。 因 此 复数 类 型 
(COMPLEX) 同 样 也 有 两 种 类 型 , 单 精 度 型 复数 和 双 精 度 型 复数 。 复 数 的 表示 形式 是 采用 
(a,b) 的 形式 ， 

如 (1.2,3.5) 表 示 复 数 1. 2 十 3. 5i。 

在 内 存 中 ,一 个 复 型 数据 占 两 个 实数 的 存储 空间 ,如 果 以 4 个 字 节 存储 一 个 实数 , 则 用 
8 个 字 节 存储 一 个 复数 。 

FORTRAN 是 目前 唯一 提供 复数 类 型 的 计算 机 稍 用 语言。 
3.3.2 非 数 值 型 数据 的 表示 及 存储 

1. 字符 类 型 

计算 机 除了 存储 数值 型 数据 之 外 ,也 可 以 在 内 存 中 存放 一 段 文本 。 字 符 类 型 
(CHARACTER) 可 以 表示 的 范围 非常 三 , 几 是 能 从 键盘 输入 的 ,不 论 是 数字 、 字 母 , 文 本 或 
任何 特殊 符号 都 可 以 。 附 录 A 的 ASCII 字 符 集 里 的 字符 就 是 这 个 类 型 所 能 表示 的 所 有 字 
符 。 只 有 一 个 字母 或 符号 时 称 为 字符”, 有 一 连 串 (多 个 ) 的 字符 时 ,就 称 为 "字符 串 "”。 存 储 

-个 字符 需要 一 个 字 市 的 存储 空间 ,存储 n 个 字符 长 度 的 字符 串 则 需要 n 个 字 节 的 存储 空间 。 
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字符 类 型 数据 要 用 一 对 单 引 号 或 双 引 号 括 起 来 。 如 'a'," hello!" 。 

2. 逻辑 类 型 

逻辑 类 型 (LOGICAL) 表 示人 逻 辑 判 断 的 往 有 果 , 只 能 有 两 种 值 ,“ 是 ”(TRUE) 或 “ 合 ” 
(FALSE)。 也 可 以 理解 为 “对 ”“ 错 或“ 丰 ”“ 假 ”等 。 

数据 类 型 只 是 数据 的 形式 化 和 抽象 化 描述 , 它 说 明 一 类 数据 的 共同 性 质 , 而 不 是 具体 的 
数据 对 象 。 程 序 处 理 的 数据 必须 是 具体 的 数据 对 象 , 所 以 在 程序 中 必须 先 明确 要 处 理 的 数 
据 对 象 的 数据 类 型 。 一 个 数据 对 象 可 以 是 常量 、 变 量 、 数 组 或 指针 等 ,用 户 根据 实际 需要 定 
义 数 据 对 象 的 数据 类 型 。 


3.4.1 音量 


稼 量 在 程序 中 直接 给 出 ,在 程序 运行 期 间 其 值 保 持 不 变 。 篆 量 分 为 直接 稍 量 和 符号 策 
量 。 下 接 稼 量 为 六 种 基本 类 型 稼 量 ,符号 稼 量 是 一 种 特殊 的 稍 量 。 篆 量 无 须 类 型 定义 ,直接 
由 其 表示 形式 即 可 确定 其 类 型 。 下 面 分 别 介绍 它们 的 表示 方法 及 其 注意 事项 。 

1. 直接 第 量 

直接 常量 包括 整 型 常量 、 实 型 常量 、 双 精度 型 常量 、 复 型 常量、 宇和 从 型 和 常量 和 催 辑 型 
向 量 。 

1) 整 型 常量 

整 型 常量 可 以 表示 成 十 进 制 及 二 至 三 十 六 进位 制 。 

(1) 十 进 制 是 由 0 一 9 组 成 的 数字 ,例如 一 215、 一 16、0、18、24 等 。 

对 于 十 进 制 整数 ,FORTRAN95 通过 整 型 KIND 值 (类 别 类 型 参数 ) 确 定 整数 的 存储 空 
间 大 小 ( 字 节 数 ) 和 取 值 范围 ,例如 一 16 2、18 4.5 1 等 ,下 画 线 后 是 允许 的 整 型 KIND 值 。 
整 型 KIND 值 有 四 种 ,分 别 是 1、2、4( 默 认为 4)、8( 仅 对 Alpha 系统 有 效 ) ,其 对 应 的 存储 空 
间 大 小 和 取 值 范围 参见 表 3. 2。 

(2) 二 至 三 十 六 进位 制 ,其 形式 是 : 土 r# 数字。 

r 前 面 的 符号 代表 整数 的 正 负 。r 代表 进位 计数 制 中 的 基数 ,其 取 值 范围 是 : 2 乏 r 迄 36， 
常用 的 进 制 有 : 二 、 八 和 十 六 进 制 ,通常 十 六 进 制 整 数 略 去 基数 16。 下 面 的 例子 说 明 一 个 十 
进 制 整 数 3994575 的 其 他 进 制 表达 形式 。 

【 例 3-2】 一 个 整数 的 不 同 进位 制 表达 形式 示例 。 

PRINT* , 2#1111001111001111001111 


PRINT x* , 7#45644664 
PRINT¥* , +8#17171717 


39944575 
PRINT * , 3994575 399457?5 
43994575 
PRINT x* ， 打 3cf3cf 3994575 
3994575 
PRINT ¥ , 36# 2dm8f ld 
END Press any key to continue 


程序 运行 结果 如 图 3.2 所 示 。 
注意 : FORTRAN95 不 允许 整数 内 部 出 现 非 数 图 3.2 例 3-2 运行 结果 
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值 字 符 ( 如 “,””:” 和 空格 ); 正 负 号 和 数字 之 间 可 以 保留 空格 
【 例 3-3】 下 列 整数 哪些 是 合 法 的 ? 哪些 是 非法 的 ? 说 明 原因 
十 0 .4654_3、 一 128、 十 32769、12. 45、134_1、8 间 79、6 间 23、 间 12A、 间 12 2、1,234、 一 0 
合法 整数 有 : 十 0、 一 128、 十 32769 、# 12A 、 一 0。 
非法 整数 有 : 4654 3(3 不 是 有 效 的 KIND 值 ) 
12. 45( 不 允许 小 数 点 ) 
134_1( 超 出 1 个 字 节 的 取 值 范围 ) 
8 井 79( 八 进 制 中 不 能 包含 数字 9 ) 
6 #23( 不 允许 出 现 空格 ) 
#12_2( 非 十 进 制 不 允许 使 用 KIND 值 ) 
1,234( 不 允许 出 现 逗 号 ) 
2) 实 型 常量 和 双 精 度 型 常量 
实 型 常量 通常 表示 成 十 进 制 小 数 和 指数 两 种 形式 。 
(1) 十 进 制 小 数 由 整数 部 分 ,小 数 点 和 小 数 部 分 组 成 , 旦 必须 包含 小 数 点 。 例 如: 
二 12.5. 一 139. 248.0.243.12. 和 .123 
十 进 制 小 数 有 三 种 表达 形式 : 
Tn.m 
hn. 
a | 
其 中 mn 代表 整数 部 分 ,m 代表 小 数 部 分 ,不 允许 出 现 非 数值 字符 (如 逗号 . 顿 导 和 空格 等 ) 。 
可 以 通过 实 型 KIND 值 确定 实数 的 存储 空间 大 小 、 取 值 范 围 和 最 大 有 效 位 数 ,参见 表 3. 3。 
实 型 KIND 值 有 4、8 两 种 ,分 别 表示 单 精度 实数 和 双 精 度 实数 。 
【 例 3-4】 下 列 实 数 哪 些 是 合法 的 ?哪些 是 非法 的 ?说 明 原 因 。 
000..0.25,587 4.0654 5.—, sD01200,.—34 8¥ ,12345897 00, $125.5 
合法 实数 有 : 0.0.、.0、23.587_4. 一 .01200。 
非法 实数 有 : 十 0( 合 法 整数 ,没有 小 数 点 ) 
654. _5( 非 法 的 实 型 KIND 值 ) 
一 .( 小 数 点 前 后 不 能 同时 没有 数字 ) 
一 34. 6 鞋 .1,234,897.00、$ 125. 5( 整 数 、 小 数 部 分 不 能 有 非 数 值 字符 ) 
(2) 指数 形式 的 实数 由 三 部 分 组 成 :有效 数字 、E( 或 e) 和 指数 。 例 如 : 
+0.125E 十 2、 一 132. 48e 一 1.243E 一 3..12e 十 2,1. 2e 十 1 
指数 形式 的 实数 有 下 列 四 种 表达 方式 : 
Tn.mETS 
nb nh 
十 nE 二 SS 
十 .mm 下 十 
其 中 ,n 代表 有 效 数 字 的 整数 部 分 ,m 代表 有 效 数 字 的 小 数 部 分 ,最 前 面 的 正 负 号 表示 数值 
的 正 负 。 字 符 王 后 面 是 指数 部 分 , 正 负 号 确定 指数 的 正 负 ,指数 必须 是 十 进 制 整数 ,表示 10 
的 多 少 次 方 。 字 和 从 EE 前 后 均 不 能 为 空 。 有 效 数字 部 分 和 指数 部 分 的 数字 遵循 整数 和 小 数 
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形式 实数 的 要 求 。 帮 指数 标识 为 D 或 d, 则 表示 该 实数 为 双 精 度 实 数 ,等 价 于 KIND 值 为 
8 ,但 不 能 再 指定 KIND 值 , 即 D 指 数 不 允 许 指定 实 型 KIND 值 。 

指数 形式 是 科学 计算 中 实数 的 常用 形式 ,这 种 形式 的 实数 也 称 为 科学 计数 法 实数 , 它 通 
常用 来 表示 一 个 非常 大 或 非常 小 的 实数 。 如 电子 的 质量 可 表示 为 0. 91X10 ”千克 。 由 于 
在 计算 机 设备 中 上 下 标 无 法 表示 , 故 FORTRAN 采用 Exponent( 指 数 ) 的 第 一 个 字母 来 
表示 以 10 为 底 的 指数 , 即 字 符 下 作为 指数 标识 ,如 0.91X10 ?在 FORTRAN 程序 中 可 表 
示 为 0.91E 一 30。 

【 例 3-5】 下 列 哪些 是 合法 实数 ?哪些 是 非法 实数 ?说 明 原 因 。 

0e0.0.e0.—234e—5 8、23. 58e 一 2.5.、9. 8e3 3.,1,234,567e—6.,.123e—1,12. 3e $3、 
区 125. 5e001 .e 十 5、 一 2.34e2 .4.5 6e2、1.35e 十 3、11. 24e 十 3、12.5d34、15. 6d45 8 

合法 实数 有 : 0e0 .0. e0 .一 234e 一 5 8、123e 一 1、 一 2.34e2、1. 35e 十 3、12. 5d34。 

非法 实数 有 

23. 58e 一 2. 5( 指 数 部 分 不 能 为 实数 ) 

9. 8e3_3( 非 法 的 实 型 KIND 值 ) 

1,234,567e 一 6( 不 能 含 非 数值 字符 ) 

12. 3e$ 3( 不 能 含 非 数值 字符 ) 

芋 125. 5e001( 不 能 含 非 数值 字符 ) 

e 十 5(e 前 面 不 能 为 空 ) 

4.5 6e2( 不 能 含 非 数值 字符 空格 ) 

11.24e 十 3( 指 数 部 分 的 正 负 号 与 数字 之 间 不 能 有 空格 ) 

15. 6d45_8(d 指数 不 允许 指定 实 型 KIND 值 ) 

同一 个 实数 可 以 有 多 种 指数 形式 ,但 在 计算 机 输出 数据 时 ,只 能 按照 一 种 标准 的 指数 形 
式 进 行 输出 。 不 同 的 计算 机 系统 采用 不 同 的 标准 化 指数 形式 ,第 用 的 标准 化 形式 有 以 下 

(1) 数字 部 分 的 绝对 值 小 于 1( 即 小 数 点 前 面 的 数字 必须 为 0), 且 小 数 点 后 第 一 个 数 
字 必 须 为 一 个 非 0 的 数字 。 例 如 ,0. 1234E4 .0.56E 一 3 是 标准 化 指数 形式 。 对 于 不 符合 
标准 化 条 件 的 实数 ,可 以 通过 改变 指数 部 分 的 数值 使 其 转变 为 标准 化 指数 形式 。 例 如 ， 
实数 0. 000 123 4 的 标准 化 指数 形式 是 0. 1234E 一 3。 

(2) 数字 部 分 的 绝对 值 小 于 10 有 旦 大 于 1( 即 小 数 点 前 只 能 有 且 只 有 一 个 非 0 数字 )。 例 
如 ,1.234E3、5. 6E 一 4 是 标准 化 指数 形式 。 对 于 不 符合 标准 化 条 件 的 实数 ,可 以 通过 增 大 
或 减 小 指数 部 分 的 值 使 其 转变 为 标准 化 指数 形式 。 例 如 ,实数 0. 000 1234 的 标准 化 指数 形 
式 是 1. 234E 一 5。 

3) 复 型 常量 

复 型 当量 采用 坐标 形式 表示 , 芭 采 用 圆 括号 将 两 个 以 逗号 分 阳 的 实数 或 整数 括 起 来 表 
示 一 个 复数 ,其 中 第 一 个 实数 或 整数 表示 复数 中 的 实 部 ,第 二 个 实数 或 整数 表示 复数 中 的 虚 
部 。 例 如 ,(2,2.5) 表 示 复 数 2 十 2. 5i,(0. 0, 一 4) 表 示 复 数 一 4i。 

男 外 , 复 型 和 常量 中 的 实 部 和 虚 部 也 可 以 是 有 确定 结果 的 表达 式 , 如 (3 十 2. 5,4.35 一 2) 
表示 复数 5. 5 十 2. 35i。 

在 FORTRAN 语言 中 , 复 型 第 量 的 实 部 和 虚 部 的 数据 类 型 被 目 动 识别 为 实 型 。 当 复数 
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实 部 和 虚 部 的 数据 类 型 不 一 致 ,或 它们 的 KIND 值 不 同时 ,编译 系统 会 自动 将 其 转换 。 转 
换 原 则 是 : 遇 整 变 实 , 回 高 看 齐 。 即 ,将 整数 变 为 实数 ,实数 的 KIND 值 由 实 部 或 虚 部 的 高 
KIND 值 确 定 。 总 之 ,在 复数 的 存储 方面 , 实 部 和 虚 部 始终 占据 同 梓 多 的 字 节 数 。 当 复数 的 
实 、 虚 部 均 占 4 个 字 记 时 ,复数 为 单 精 度 复 数 ; 复数 的 实 、 虚 部 均 占 8 个 字 市 时 ,复数 为 双 精 
度 复数 。 

4) 字符 型 前 量 

字符 型 常量 即 字 符 串 ,是 用 单 引 号 或 双 引 号 括 起 来 的 寿 干 字符 序列 。 例 如 : 

"a"、'123'、"I'm a student."、'China'、" 我 是 中 国人 1! " 

字 和 从 串 前 尾 的 引号 称 为 字符 串 分 阳 从 ,字符 串 分 阳 符 只 能 使 用 西 文 单 引号 或 双 引 号 。 
当 字 符 串 内 有 3 引号 时 ,会 与 字符 串 分 隐 和 从 产生 冲突 ,解决 的 办 法 如 下 。 

(1) 交 蔡 使 用 法 , 即 : 大 字符 串 内 出 现 单 引号 , 则 分 隅 符 采 用 双 引 号 ; 右 字 符 串 内 出 现 
双 引 号 , 则 分 阳 符 采用 单 引 号 。 例 如 ,下 面 两 个 字符 串 为 合法 字符 串 : 

“IT'ma student. " 

'He said: “I am feeling well.™' 

(2) 重复 使 用 法 , 即 : 右 字 符 串 内 出 现 单 引 号 或 双 引 号 , 则 在 其 后 再 增加 一 个 单 引 号 或 
双 5 引 号 ,两 个 单 引 号 或 两 个 双 引 号 被 视 为 一 个 单 引 号 或 双 引 号 。 例 如 ,下 面 两 个 字符 串 为 合 
法 字符 串 : 

'J"'m a student. ' 

”He said: “1'm feeling well.”" 

字符 串 内 的 字符 不 受 FORTRAN95 字符 集 的 限制 ,而 是 受 计算 机 系统 允许 使 用 的 字符 
限制 ,因此 ,只 要 能 从 键盘 (或 其 他 输入 设备 ) 输 入 给 计算 机 系统 的 字符 都 可 以 出 现在 字符 串 
中 。 例 如 下 面 的 字符 串 都 是 合法 的 : 

"CHINA"、' 中 国 '、'"U. S. A'、'X 十 Y > C'、' 你 好 吗 ?'、'#@a'、'A 十 B; B 十 C'、'1234" 

字符 串 内 的 字母 区 分 大 小 与 ,如 'China' 与 "CHina' 是 不 同 的 字符 串 。 

字符 串 内 的 空格 不 能 忽略 ,每 一 个 空格 都 是 一 个 字符 。 如 'China' 与 "CHi na' 是 不 同 的 字 
竺 串 。 字 人 符 串 中 字符 的 个 数 ( 引 号 内 所 有 的 字符 的 个 数 , 包 括 空 格 ,但 不 能 包括 字符 型 和 常量 
的 标志 一 一 引号 ) 称 为 字符 串 的 长 度 。 长 度 为 0 的 字符 串 (" 或 "") 称 为 空 囊 。 字 符 串 中 的 一 
个 西 文 字符 占据 一 个 字 节 的 存储 空间 ,一 个 汉字 ( 含 中 文 标点 符号 ) 占 据 2 个 字 节 的 存储 空 
间 , 且 按 两 个 西 文学 和 从 计算 长 度 , 如 字符 串 ' 中 国 ' 的 长 度 是 4。 

【 例 3-6】 确定 下 列 字符 串 的 长 度 。 

"Im a student." “我 是 一 个 学 生 。 、x 十 yx z 放 100"、" 他 说 :“ 我 是 一 个 学 生 。”" 

长 度 分 别 为 : 14、14、9、24。 

字符 是 以 其 ASCII 代码 的 二 进 制 形式 存储 在 内 存 中 的 。 

FORTRAN95 支持 C 字符 串 ,所谓 C 字符 串 就 是 C 语言 中 的 字符 串 。C 字符 串 中 允许 
出 现 非 打印 字符 (控制 字符 ) ,如 回 车 和 从、 换行 符 、 退 格 和 从 每 。C 字符 串 中 使 用 特殊 字符 ”\ ”后 
跟 非 打印 字符 的 ASCII 码 或 标志 符 来 表示 非 打印 字符 。 表 3.4 给 出 C 字符 串 中 非 打 印字 
符 的 表示 形式 。 
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表 3.4 非 打印 字符 表示 形式 


表示 形式 打印 字条 

Wa 或 \A 二 在 Tab 

Wb 或 \B TS 

\f 或 \F 输出 十 六 进 制 编码 为 hh 的 任意 
\n 或 \N ASCI[ 字 符 

\r 或 \R 输出 八进制 编码 为 ddd 的 任意 
\+ 或 \T ASCII 字符 


FORTRAN95 中 ,如 果 一 个 字符 串 的 后 面 紧 接 一 个 字符 C, 那 么 这 个 字符 串 就 是 C 字 
符 串 。 通 过 C 字符 串 可 表示 任何 可 输出 的 字母 字符 、 专 用 字符 、 图 形 字 和 从 和 控制 字符 。 

例如 ,' 中 国 \N'C,'CHINA'C 都 是 C 字符 串 。 

5) 人 逻辑 型 常量 

逻辑 型 常量 只 有 两 个 : .TRUE. 和 . FALSE. 。 

需要 注意 的 是 : 逻辑 值 两 边 的 小 数 点 ". ”必须 有 ; 逻辑 值 中 字母 不 区 分 大 小 写 。 逻 辑 
型 KIND 值 确 定 逻 辑 值 的 存储 单元 大 小 。 逻 辑 型 KIND 值 有 四 种 ,分别 是 1.2.4 和 8( 仅 对 
Alpha 系统 有 效 )。 对 于 人 逻辑 值 . TRUE. ,在 其 存储 单元 字 市 内 每 个 二 进 制 位 上 都 是 1, 可 视 
为 整数 一 1; 对 于 逻辑 值 . FALSE. ,在 其 存储 单元 字 节 内 每 个 二 进 制 位 上 都 是 0, 可 视 为 整 
数 0。 因 此 ,逻辑 值 可 以 参与 数值 型 数据 的 运算 ,如 4.0 十 .TRUE. 的 值 是 3. 0。 

2. 符号 常量 

符号 常量 是 一 种 特殊 类 型 的 常量 ,是 程序 单元 内 代表 和 营 量 的 标识 符 。 

符号 常量 必须 通过 PARAMETER 语句 进行 定义 后 才 可 使 用 ,定义 的 一 般 格式 为 : 

PRRRMETEFR( 标 识 符 = 律 量 ,标识 行 = 常量,…) 

【 例 3-7】 符号 第 量 的 使 用 示例 。 

PARAMETER (G= 9.80655) 

T= 10 

V=G¥T 

PRINT * ,VV 

END 

该 语句 定义 了 符号 常量 G, 在 该 语句 所 在 的 程序 单元 内 ,G 都 代表 9. 80655, 和 常量 一 
样 进 行 运算 ,在 程序 运行 过 程 中 其 值 不 能 改变 。 程 序 运 行 结 果 如 图 3. 3 所 示 。 

定义 得 号 常量 的 PARAMETER 请 勾 征 一 车 “E:\bookls\bookl1\Debug\book1. exe” x| 
个 非 执 行 语句 ,按照 FORTRAN 语言 的 规定 ， 98.06550 a 
它 必须 放 在 可 执行 语句 的 前 面 。 符 号 和 常量 在 程 
序 单元 编译 时 ,系统 并 不 会 为 其 分 配 存 储 空间 ， 
而 是 将 程序 单元 中 几 是 出 现 从 号 常量 的 位 置 痢 
用 其 所 代表 的 具体 常量 进行 替换 。 如 “V= 二 Gx* T” 语 句 在 编译 时 被 翻译 成 V9. 80655 * 工 。 
如 果 在 程序 中 需要 多 次 用 到 同一 个 常量 ,以 及 在 编程 过 程 中 对 复杂 常数 项 的 输入 (如 重力 加 
速度 、 圆 周 率 ,\ 传 热 系 数 、 雷 庄 数 等 ), 为 了 简化 程序 ,这 些 重复 性 常量 或 复杂 常数 项 通常 用 符 


Press any key to continue 


图 3.3 例 3-7 运行 结果 
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写 常量 来 表示 。 符 号 常量 也 可 以 在 需要 改变 一 个 常量 的 值 时 做 到 “一 改 全 改 ”。 
3.4.2 变量 


1. 变量 的 概念 
变量 是 指 在 程序 运行 期 间 其 值 可 以 发 生 改 变 的 量 , 是 程序 主要 人 处理 的 对 象 。 系 统 为 程 


序 中 的 每 一 个 变量 开 尽 一 个 存储 单元 ,用 来 存放 变量 的 值 。 如 : X X 
X=1.5 | -| 63 | 
X=6.3 B 车 


在 执行 第 一 个 语句 后 ,变量 X 的 值 为 1.5, 见 图 3. 4(a) ,在 执 图 3.4 恋 量 的 赋值 
行 第 二 个 语句 后 ,变量 X 的 值 为 6.3, 见 图 3.4(b)。 

需要 注意 的 是 ,在 每 一 个 瞬间 ,一 个 变量 只 能 有 一 个 确定 的 值 。 当 X 被 赋予 新 值 6. 3 
时 ,原来 的 值 1. 5 便 被 取代 了 。 

在 程序 中 用 到 的 变量 ,应 该 给 它 赋 予 确定 的 值 ,否则 计算 机 系统 便 会 给 它 一 个 不 确定 的 
随机 值 。 如 : 


PRINT* ,A 


由 于 A 未曾 被 赋予 确定 的 值 ,因此 打印 输出 的 A 值 是 不 可 预料 的 (也 有 些 系 统 将 未 被 
程序 赋值 的 数值 型 变量 的 初 值 设 为 零 ) 。 

2. 变量 名 

一 个 变量 需要 用 一 个 名 字 ( 变 量 名 ) 来 识别 。 在 同一 个 程序 单元 中 不 能 用 同一 个 变量 名 
代表 两 个 不 同 的 变量 。FORTRAN 的 变量 名 按 以 下 规则 选 定 : 只 能 由 字母 、 数字、 下 画 线 
“和 ”和 美元 符号 “$ ”组 成 , 且 起 始 字符 必须 是 英语 字母 。 

选用 变量 名 时 需要 注意 以 下 几 点 。 

(1) 在 变量 名 中 大 写字 母 与 小 写字 母 是 等 价 的 ,可 以 互相 代 蔡 。 例 如 ,SUM、sum、Sum 
都 代表 同一 个 变量 。 

(2) 变量 名 的 宇 符 之 间 可 以 插入 空格 ,但 这 些 空格 不 起 作用 。 例 如 ,TO 工 AL 和 
TOTAL 代表 同一 个 变量 。 

(3) 变量 名 应 尽量 做 到 “ 见 名 知 义 ”, 即 用 一 些 有 含义 的 英文 单词 (或 汉语 拼音 ) 来 命名 
变量 。 如 用 COUNT 代表 计数 需 , 用 AVER 代表 平均 值 , 等 等 。 

(4) FORTRAN 没有 规定 保留 字 , 即 可 以 用 FORTRAN 中 的 函数 名 或 语句 定义 符 作 
变量 名 。 如 SIN 是 正弦 函数 的 名 字 ,如果 有 以 下 语句 : 

SIN= 1.5 

PRINT * ,SIN 


则 语句 中 的 SIN 是 变量 名 而 不 代表 正 强 函数 ,系统 会 根据 它 后 面 有 无 日 变量 而 做 出 判断 。 
又 如 : 
READ * , PRINT 


此 时 PRINT 是 一 个 变量 名 而 不 代表 “打印 输出 ”的 操作 。 系 统 会 认定 语句 的 第 一 个 字 
READ 为 代表 操作 的 语句 定义 和 从 ,而 把 PRINT 作为 READ 语句 中 读 取 的 变量 。 
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但 在 同一 个 程序 单元 ( 主 程序 或 子 程序 分 别 是 不 同 的 程序 单元 ) 中 ,变量 名 和 图 数 名 或 
语句 定义 符 不 能 同名 。 例 如 ,以 下 语句 是 错误 的 : 

SIN= 1.5 

FACT = SIN * SIN(2.0) 

PRINT * ,PRINT 

为 了 避免 混淆 ,建议 不 要 使 用 FORTRAN 中 已 有 特定 含义 的 字 作 变量 名 。 

3. 变量 的 类 型 

变量 是 用 来 存放 和 常量 的 ,直接 常量 有 6 类 ,所 以 变量 也 相应 地 分 为 6 类, 即 整 型 变量 \ 实 
型 变量 、 双 精度 型 变量 .逻辑 型 变量 .字符 型 变量 。 整 型 变量 用 来 存放 整 型 背 量 , 实 型 变量 用 
来 存放 实 型 常量 ,以 此 类 推 。 

变量 是 用 来 存放 篆 量 的 ,所 以 需要 给 变量 分 配 存 储 空间 ,这 个 存储 空间 需要 多 大 ,需要 
提前 说 明 , 即 在 使 用 变量 之 前 ,必须 先 说 明 变 量 的 数据 类 型 ,以便 编 详 融 能 够 依照 变量 类 型 
给 每 个 变量 分 配 相 应 大 小 的 存储 空间 以 存放 常量 的 值 , 即 对 变量 应 “ 先 说 明 , 后 使 用 ”。 变 量 
在 内 存 中 所 占 的 学 市 数 和 数据 存储 形式 与 相应 类 型 的 常量 相同 。 

说 明 变 量 类 型 的 方法 有 以 下 三 种 。 

1) 隐 合 约定 

FORTRAN 规定 : 程序 中 的 变量 名 凡是 以 字母 IJ KK LJMJN(C 不 区 分 大 小 写 ) 六 个 字 
母 开 头 的 , 即 认 为 该 变量 为 整 型 变量 ,以 其 他 罕 母 开头 的 变量 为 实 型 变量 。 例 如 ,下 面 的 变 
量 为 整 型 变量 : 

工 J， MAX, NL NUM 

而 下 面 的 变量 为 实 型 变量 : 


A, B,C, X,Y,SUM,AVER,COUNT, TOTAL 


可 以 将 这 个 隐 合 约定 称 为 "IN 规则 ”, 表 示 以 1 到 NN 之 间 的 字母 开头 的 变量 为 整 型 


很 多 初学 者 往往 走 记 了 这 个 “LN 规则 ”, 写 程序 时 会 不 假 思 索 地 写 出 这 样 的 语句 : 


IMAX = 3.6 
而 按照 “LN 规则 ”,IMAX 是 整 型 变量 ,无 法 存储 3.6 这 样 的 实数 。 如 果 改 为 : 
AMAX = 3.6 


就 没有 问题 了 ,但 有 了 时 又 不 符合 “ 见 名 知 义 ”的 原则 。 例 如 ,用 IMAX 表示 最 大 电流 比较 直 
观 , 而 用 AMAX 表示 就 不 太 直 观 。 

2) 用 类 型 说 明 语 句 指 定 变 量 类 型 

如 果 想 改变 “I-N 规则 ”对 变量 类 型 的 约束 ,可 以 用 类 型 说 明 语 句 强 制 指 定 某 些 变量 的 
类 型 。 例 如 : 

INTEGER A,B, SUM 

REAL IT,J,K,IMAX 

COMPLEX M 

CHARACTER x 8C 
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变量 A,B,SUM 按 “I-N 规则 ” 原 为 实 型 变量 , 现 用 类 型 说 明 语 句 一 一 INTEGER 语句 将 
A,B,SUM 强制 规定 为 整 型 变量 。 同 理 , 用 REAL 请 名 .COMPLEX 请 名 .CHARACTER 霹 句 
分 别 将 I,J,K,IMAX 规定 为 实 型 变量 ,将 M 规定 为 复 型 变量 ,将 C 规定 为 字符 型 变量 , 字 
符 长 度 为 8。 经 过 这 样 的 类 型 说 明之 后 ,在 程序 中 出 现 : 


IMAX = 3.6 
就 没有 问题 了 ,实数 3.6 存放 在 实 型 变量 IMAX 中 。 这 样 既 可 以 保持 IMAX 的 “ 见 名 知 
义 ”, 又 可 使 它 改 为 实 型 。 


FORTRAN 有 六 个 类 型 说 明博 人 句 : 


INTEGER 语句 ( 整 型 说 明 语 句 ) 

REAL 语句 ( 实 型 说 明 语句) 

DOUBLE PRECISION 语句 ( 双 精 度 型 说 明 语 句 ) 
COMPLEX 语句 ( 复 型 说 明 语 句 ) 

CHARACTER 语句 (字符 型 说 明 语 句 ) 

LOGICAL 语句 (逻辑 型 说 明 语 句 ) 


下 面 举例 说 明 类 型 说 明 语 名 的 用 法 : 


INTEGER X,Y,2Z 1! 定义 X.Y 和 Zz 是 整 型 变量 

CHARACTER x* 6 name 1 定义 name 是 字符 型 变量 ,字符 长 度 为 6 

COMPLEX :: S= (1.5,8.9) ! 定 义 S 是 单 精度 复 型 变量 ,并 对 其 赋 初 值 (1.5,8.9) 
INTEGER(2) :: A=1,B ! 定 义 A.B 是 短 整 型 变量 ,对 变量 &A 赋 初 值 1 

RERAL < 8 了 ! 定 义工 是 双 精 度 型 变量 

注意 : 


(1) 类 型 说 明 符 后 括号 中 的 数字 2 和 “x* ”号 后 的 数字 8 是 类 别 类 型 参数 (KIND 值 ) ,其 
取 值 要 符合 数据 类 型 的 规定 ,如 整 型 不 能 有 1、2、4.、8 以 外 的 KIND 值 。 

(2) 符号 “; : ”在 变量 定义 语句 中 可 有 可 无 。 若 有 可 对 变量 赋 初 值 ,否则 不 能 赋 初 值 ， 
赋 初 值 则 会 出 错 。 

(3) 用 IMPLICIT 语句 ( 隐 含 说 明 语 句 ) 指 定 变 量 类 型 

IMPLICIT 语句 可 以 将 以 某 个 或 某 些 字母 开头 的 变量 指定 为 所 需要 的 类 型 。 

例如 : 

IMPLICIT INTEGER(A,F,C,T— V) 

IMPLICIT REAL(I,J) 
即 指定 以 字母 A\F 和 CC 开头 的 全 部 变量 和 以 本 到 V( 即 T,U、V) 开 头 的 全 部 变量 为 整 型 变 
量 。 指 定 以 字母 IJ 开头 的 变量 为 实 型 变量 。 可 以 用 一 个 IMPLICIT 语句 指定 几 种 类 型 ,如 : 


IMPLICIT INTEGER(A,B,X— 2), REAL(I,K),CHARACTER(C, NI) 


说 明 : 
(1) 以 上 三 种 说 明 变 量 类 型 的 方法 中 ,以 类 型 说 明 语 句 最 优先 ,IMPLICIT 语句 次 之 ， 
“IN 规则 ”的 级 别 最 低 。 如 : 


IMPLICIT REAL(I,J) 
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如 果 没 有 这 两 条 语句 , 则 IMAX 按 “I-N 规则 ”为 整 型 ,第 一 个 语句 (IMPLICIT 语句 ) 指 
定 以 I,J 开 涉 的 所 有 变量 为 实 型 ,但 第 二 个 语句 (CHARACTER 请 句 ) 又 指定 IMAX 为 字 
符 型 ,由 于 类 型 说 明博 句 比 IMPLICIT 博 句 优先 级 别 高 ,因此 最 后 以 CHARACTER 语句 的 
指定 为 准 。 

(2) 在 一 个 程序 中 ,一 个 字母 不 能 同时 出 现在 两 个 或 两 个 以 上 的 IMPLICIT 语句 中 , 即 
不 能 利用 IMPLICIT 语句 定义 矛盾 的 类 型 说 明 。 例 如 ,有 如 下 连续 说 明寺 句 : 

IMPLICIT INTEGER(A— DD) ! 合法 

IMPLICIT REAL(C, F) ! 非 法 ,以 C 和 D 开 头 的 变量 已 被 隐 含 定义 为 整 型 变量 

(3) 隐 含 约定 具有 一 定 的 副作用 。 如 与 第 一 种 、 第 二 种 说 明 混 合 使 用 ,容易 使 变量 类 型 
不 清晰 ,影响 程序 的 阅读 ,因此 FORTRAN95 不 提倡 使 用 。 在 程序 单元 中 的 变量 说 明之 前 
加 入 IMPLICIT NONE 语句 可 以 取消 IN 规则 。 

(4) 类 型 说 明 语 句 和 IMPLICIT 语句 都 是 非 执 行 语句 ,它们 的 作用 在 于 通知 编译 系统 
按 指定 的 类 型 分 配 内 存单 元 和 确定 数据 的 存放 方式 。 

(5) 类 型 说 明 语 句 只 在 本 程序 单元 内 有 效 。 

(6) IMPLICIT 语句 和 类 型 说 明 语 句 应 该 出 现在 本 程序 单元 的 所 有 可 执行 语句 的 前 
面 ,其 中 IMPLICIT 语句 又 应 放 在 有 所 有 的 类 型 说 明 语 句 的 前 面 。 

(7) 需要 特别 指出 的 是 ,对 于 字符 型 变量 的 说 明 通 常 采 用 的 格式 为 

CHARACTER( [len = ]n) 变量 表 


格式 中 的 [len 二 jn 代表 被 说 明 变 量 的 长 度 ,向 省 略 Llen 王 ] 。 

例如 : 

CHARACTER( 20) NAME ! 定 义 了 一 个 长 度 为 20 的 字符 型 变量 NAME 

当 n= 二 1 时 ,字符 型 变量 的 定义 格式 可 简化 为 : 

CHARACTER 变量 表 

例如 : 

CHARACTER A(10) ! 定 义 了 一 个 包含 10 个 字符 型 元 素 的 数组 ,并 且 每 个 
! 数 组 元 素 的 长 度 都 为 1 

字符 型 数据 定义 时 还 可 以 单独 指定 变量 表 中 某 个 变量 的 长 度 , 遇 到 这 种 情况 时 , 亲 循 的 

原则 是 “特殊 优 于 一 般 ”。 

例如 : 

CHARACTER(8) RARx 10,B,Cx*13 ! 定 义 了 三 个 字符 型 变量 ,根据 上 面 的 原 
! 则 可 知 A 的 长 度 为 10,B 的 长 度 为 8,C 的 长 度 为 13 

4. 给 变量 赋 初 值 

1) 直接 赋值 

通 背 一 个 变量 是 移 定 义 , 然 后 再 给 它 赋 值 ,例如 : 


INTEGER A 
A= 20 
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aa 在 FORTRAN 语言 中 可 以 在 说 明 变 量 的 同时 对 其 赋 初 值 , 即 初 始 化 ,如 上 


INTEGER.. A= 10 


同 理 , 其 他 类 型 的 变量 也 可 以 在 说 明 的 同时 对 其 初 妨 化 。 需 要 注意 的 是 ,用 这 个 方法 设 
置 初 值 时 ,中 间 的 两 个 冒号 不 能 省 略 。 

2) 用 DATA 语句 给 变量 赋 初 值 

一 般 格式 为 : 

DATA 变量 1, 变量 2, …, 变 量 n/ 常 量 1, 常量 2,… ,常量 n/ 


说 明 : 
(1) DATA 可 以 给 多 个 变量 同时 赋 初 值 ,中 间 用 逗号 阳 开 。 
(2) 被 赋值 的 常量 一 定 要 放 在 一 对 “//” 之 中 。 
(3) 被 赋值 的 常量 与 对 应 的 变量 数据 类 型 要 一 致 。 
(4) 被 赋值 的 常量 中 还 可 以 使 用 * ”来 表示 数据 的 重复 。 
例如 : 
REAL A,B,C 
DATA A,B,C/1.0,2.0,3.0/ 
通过 此 DATA 赋值 语句 有 A=1.0,B=2.0,C=3.0 
又 如 下 面 的 语句 ; 


DATA M,N, K/3 * 5/ 


执行 此 请 句 后 ,M、N、K 的 值 部 为 5。 


3.5 FORTRAN9S 的 算术 运算 符 与 算术 表达 式 


运算 符 是 对 同类 型 的 数据 进行 运算 操作 的 符号 。 用 运算 符 将 常量 、 变 量 和 函数 等 数据 
连接 起 来 的 式 子 称 为 表达 式 。 表 达 式 的 类 型 由 运算 符 的 类 型 决定 ,每 个 表达 式 按照 规定 的 
运算 规则 产生 一 个 唯一 的 值 。 

FORTRAN 的 运算 符 有 算术 运算 符 ,关系 运算 符 、 逻 辑 运算 符 、 字 符 运算 符 。 本 节 只 介 
绍 算术 运算 符 和 算术 表达 式 。 


3.5.1 算术 运算 符 


FORTRAN95 提供 5 种 算术 运算 符 ,如 表 3.5 所 示 , 它 们 的 作用 与 数学 中 的 算术 运算 
符 相 同 。 
表 3.5 算术 运算 符 


有 和 方 | + 加 
和 减 
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算术 运算 符 的 优先 级 为 : 括号 一 乘 方 一 乘 、 除 一 加 、 减 ,其 中 乘 和 除 同 级 ,加 和 减 同 级 ， 
分 别 从 左 到 右 进 行 计算 。 对 于 连续 多 次 乘 方 , 按 “ 先 碳 后 左 ” 的 原则 人 处 理 。 


3.5.2 算术 表达 式 


算术 表达 式 是 用 算术 运算 符 将 数值 型 稼 量变 量 和 返回 数值 型 数据 的 函数 等 连接 起 来 
的 式 子 ,其 结果 是 数值 型 数据 。 

例如 ,3 十 2*5/4、 一 5.5x*4xx2 和 sin((a 十 1) x*x 2)/(nxx 2 十 1) 都 是 算术 表达 式 。 

【 例 3-8】 给 出 下 列 算术 表达 式 的 计算 顺序 和 各 顺序 对 应 的 值 。 

(1) 一 10 十 2x 3/5 二 2 x*x3 

计算 顺序 是 : 

CO 2 xx 3 的 结果 为 8; 

@ 2x*3 的 结果 为 6; 

G) 6/5 的 结果 为 1; 

(4 10 先 与 -结合 ; 

@) 一 10 十 1 的 结果 为 一 9; 

(@) 一 9 十 8 的 结果 是 一 1; 

表达 式 计 算 结 果 为 ; 一 1。 

(2) 2 xx 3 x% 2/2 

计算 顺序 是 : OO 3 xx 2 的 结果 为 9; 

(2 x*x 9 的 结果 为 512; 
(3) 512/2 的 结果 为 256。 

表达 式 计 算 结 果 为 : 256。 

【 例 3-9】 给 出 下 面 表 达 式 的 计算 顺序 和 各 顺序 对 应 的 值 及 数据 类 型 。 

2xx3x2.0 一 10.0 8 

计算 顺序 是 ， 

QD 2 xx 3, 结 果 为 8( 整 型 ); 

四 8x* 2.0, 结 果 为 16.0( 单 精度 ) ; 

@ 16.0 一 10.0 8 结果 为 6.0( 双 精度 ) 。 

关于 算术 表达 式 的 几 点 说 明 如 下 。 

1. 算术 表达 式 的 写法 

(1) 表达 式 中 常量 的 表示 变量 的 命名 以 及 函数 的 引用 要 符合 FORTRAN 语言 的 

(2) FORTRAN 表达 式 只 能 在 行 上 从 左 到 右 书 写 , 即 所 有 字符 都 必须 写 在 一 行 ， 
FORTRAN 表达 式 中 没有 带 有 下 标的 变量 .分 式 等 。 例如 数学 表达 式 汪 十 写成 
FORTRAN 表达 式 应 为 : xl/yl 十 x2/y2。 

(3) 算术 表达 式 中 的 乘 号 不 能 省 略 。 

(4) FORTRAN 表达 式 只 人 允许 用 小 括号 ,不 能 使 用 大 .中 括号 。 根 据 需 要 用 括号 表明 
运算 顺序 。 例 如 数学 表达 式 {[ (a 十 6? 十 (a 一 5)* 上 十 C} 十 8, 写 成 FORTRAN 表达 式 应 为 : 
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(((a 十 b) xx 2 十 (a 一 b) xx 2) xx 3 十 Cc) 十 8。 

2. 算术 表达 式 运算 中 的 类 型 问题 

据 前 面 所 述 ,FORTRAN 中 的 当量 和 变量 是 分 类 型 的 ,能 不 能 在 不 同类 型 的 运算 量 之 
间 进 行 算术 运算 呢 ? FORTRAN 允许 不 同类 型 的 算术 量 ( 包 括 整 型 \ 实 型 . 双 精 度 型 . 复 型 ) 
之 间 进 行 算术 运算 (也 允许 算术 量 和 逻辑 量 之 间 进 行 算 术 运 算 )。 例 如 ,2 x* 3.5 是 允许 的 。 
2 为 整 型 量 ,3. 5 为 实 型 量 , 它 们 的 乘积 是 什么 类 型 的 呢 ? 

FORTRAN 有 如 下 规定 。 

(1) 同类 型 的 算术 量 进行 运算 ,其 结果 保持 原 类 型 。 例 如 ,2*3 的 结果 为 整 型 数 6, 而 
2.5x2.0 的 值 为 实 型 数 5.0( 请 注意 ,5.0 是 实 型 数 而 不 是 整 型 数 )。2 xx 3 的 值 为 整 型 数 
8, 而 2.0xx 3.0 的 值 为 实 型 数 8.0。 

应 当 特 别 注意 的 是 ,FORTRAN 规定 两 个 整数 相 除 的 商 一 定 也 为 整数 ,小 数 部 分 自动 
舍 去 。 也 就 是 说 ,一 个 整 型 量 除 以 男 一 个 整 型 量 ,其 商 仍 为 整 型 量 。 例 如 ,5/2 的 值 是 2, 而 
不 是 2.5( 因 为 2. 5 不 是 整数 ,只 取 其 整数 部 分 得 2), 再 如 6/4, 在 数学 上 等 于 1.5, 而 在 
FORTRAN 中 ,只 取 其 商 的 整数 部 分 而 将 小 数 部 分 舍 去 ,结果 为 1。 同 理 ,一 8/3 的 值 为 一 2。 
当 分 子 小 于 分 母 时 结果 一 律 为 0。 如 一 1/2 得 到 的 不 是 一 0.5, 而 是 0, 这 一 点 要 特别 注意 。 

如 果 不 希 望 丢 掉 小 数 部 分 ,应 改 用 实 型 量 相 除 ,如 6. 0/4. 0, 得 到 1. 5, 一 1.0/2.0 得 
到 一 0. 5, 等 等 。 

如 果 表 达 式 中 包括 整数 的 除法 , 则 在 用 整数 相 除 时 ,必须 注意 它们 的 运算 顺序 。 例 如 : 

(a) IxJ/K (b)I/K x*J 


都 代表 代数 式 -到 *, 但 由 于 运算 顺序 不 同 ,可 能 会 得 到 不 同 的 结果 。 例 如 , 当 [一 4,J 一 8， 


天王 5 时 , 按 (a) 表 达 式 计算 ,4 * 8/5 的 值 为 6, 按 (b) 表 达 式 计算 ,4/5*8 的 值 为 0。 而 在 实 型 
量 的 运算 中 ,这 种 改变 次 序 是 允许 的 ,不 会 产生 大 的 误差 。 如 上 式 改 用 实数 相 除 就 不 会 有 这 种 
情况 ,4.0 x 8.0/5.0 和 4.0/5.0x*x8.0 的 值 都 是 6.4。 因 此 ,在 编写 FORTRAN 程序 中 ,不 要 轻 
易 使 用 整 型 量 相 除 。 如 好 , 若 写 成 X xx (1/2), 就 等 效 于 x? 了 ,应 写成 Xxx (1. 0/2.0) 或 


sinx 
y 
对 于 这 类 表达 式 , 只 要 在 写法 上 改变 整 / 整 的 形式 就 可 以 了 ,写法 不 唯一 。 
一 个 整 型 量 的 整 次 方 ,结果 也 是 一 个 整数 。 例 如 ,2 *x 3 的 结果 为 8,2 xx (一 1) 的 结果 
不 是 *0.5 而 是 0,17 xx (一 2) 的 结果 也 是 0, 都 是 因为 在 运算 后 舍 去 了 小 数 部 分 。 
(2) 如 果 参 加 运算 的 两 个 算术 量 为 不 同类 型 , 则 编译 系统 会 自动 将 它们 转换 成 同一 类 
型 ,然后 进行 运算 。 转 换 原 则 是 将 低级 类 型 转换 成 高 级 类 型 。 类 型 的 级 别 如 下 : 
整 型 一 -~ 实 型 
( 低 ) (高 ) 
例如 ,计算 2 十 4.0 时 , 先 将 2 转化 为 2.0, 然 后 计算 ,表达 式 的 结果 是 6.0; 计算 2_2 十 4 
时 , 先 将 2 转化 为 4 个 字 市 整数 ,然后 计算 ,表达 式 的 结果 是 6, 在 内 存 中 占 4 个 字 市 。 
类 型 的 转换 是 从 左 至 右 进 行 的 ,在 遇 到 不 同类 型 的 算术 量 时 才 进 行 转换 。 例 如 : 
1/4 * 20.0 
并 不 是 一 开始 就 同时 将 1 和 4 转化 成 实数 1.0 和 4.0, 然 后 进行 实数 运算 (得 5.0) ,而 是 先 


不 应 写成 (1/2) x SIN(X), 而 应 写成 0.5 x* SIN(X) 或 SIN(X) /2.0。 


XK x |. 了 同 理 ， 
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进行 整数 运算 1/4 得 0,0 再 乘 以 20.0, 最 后 结果 也 为 0。 

(3) 运算 的 误差 问题 

整 型 量 的 运算 是 准确 的 ,没有 任何 误 善 (只 要 在 整数 范围 内 )。 而 实 型 量 的 运算 会 出 现 
一 些 误差 。 例 如 ,11 111.1X1111.11 本 应 得 12 345 654. 321 ,但 由 于 受 实 数 有 效 位 数 的 限 
制 , 只 能 得 到 0. 123 456X105( 假 定 所 用 的 FORTRAN 人 允许 有 效 位 数 为 7 位 )。 又 如 : 

0. 001 十 1 246 825. 0 一 1 246 820.0 
本 应 得 到 5. 001。 但 由 于 有 效 位 数 的 限制 , 在 进行 前 两 项 相 加 时 ,不 可 能 得 到 
1 246 825. 001( 因 为 它 需 要 10 个 有 效 位 数 ) ,而 只 能 得 到 1 246 825. 0, 之 后 再 进行 减法 运算 
得 到 5.0, 显 然 有 误差 , 即 所 谓 的 大 数 吃 小 数 问 题 。 这 个 误差 也 来 源 于 有 效 位 数 , 也 就 是 说 
由 于 实数 在 内 存 的 存储 方式 引起 的 。 如 果 将 表达 式 的 运算 顺序 换 一 下 ,就 不 会 出 现 这 个 问 
题 。 例 如 : 

1 246 825. 0 一 1 246 820. 0 十 0. 001 
结果 为 5.001。 这 是 因为 每 次 运算 所 得 到 的 结果 的 数字 位 数 都 不 超过 有 效 位 数 。 因 此 ,在 
号 表达 式 时 应 尽量 使 每 一 次 运算 结果 都 在 有 效 位 数 范 围 之 内 ,否则 就 会 出 现 误差 。 在 运算 
中 应 尽量 不 要 使 两 个 相差 很 大 的 数值 直接 相 加 或 相 减 ,以 避免 大 数 吃 小 数 。 又 如 : 

1,.0/3.0* 3.0 
结果 不 是 1.0。 这 是 由 于 1.0/3.0 得 到 0. 333 333 3 ,再 乘 以 3, 得 0.999 9999。 因 此 ,有 两 个 
理论 上 本 应 相等 的 实数 A 和 了 B, 如 果 判 断 “A 一 B=0?”, 可 能 得 到 的 结果 为 不 等 于 0, 即 A 六 
B。 所 以 要 慎重 地 判断 两 个 实数 的 相等 或 不 相等 。 在 判断 两 实数 的 相等 或 不 等 时 ,最 好 把 
上 式 的 减法 运算 改 为 “1A 一 Bl 三 e”, 即 A 和 B 之 差 的 绝对 值 如 果 小 于 el(e 为 一 个 很 小 的 数 ， 
如 107 ), 则 认为 A 和 B 相 等 。 

总 之 ,在 实数 运算 中 应 充分 考虑 到 其 可 能 出 现 的 误差 ,而 且 在 运算 过 程 中 误差 会 不 断 积 
累 而 增 大 ,有 时 可 能 达到 一 个 可 观 的 程度 。 

整 型 量 的 运算 速度 比 实数 快 而 且 不 出 现 误差 ,但 整数 的 范围 有 限 。 用 实数 运算 速度 慢 
而 且 有 误差 。 如 果 想 保持 大 的 数 的 范围 又 有 较 高 的 准确 度 ,应 增加 有 效 位 数 , 可 采用 双 精 度 
型 数 , 其 有 效 位 数 可 达 16 一 17 位 。 


3.6 FORTRAN9S 标准 函数 


困 数 在 科学 计算 领域 有 广泛 的 应 用 ,数学 等 学 科 为 我 们 提供 了 大 量 的 图 数 , 如 三 角 吨 
数 、 对 数 郴 数 、 双 曲 明 数字 符 串 处 理 困 数 等 等 。 计 算 机 语言 中 提 到 的 因数 是 对 数学 等 学 科 
中 国 数 的 计算 机 实现 , 它 实 际 上 是 具有 独立 功能 的 程序 模块 。 

FORTRAN 语言 是 以 科学 计算 为 特长 的 计算 机 语言 , 它 为 用 户 提 供 了 丰富 的 内 部 负数 
库 ( 标 准 图 数 库 ) 。 它 将 三 角力 数 .平方 根 图 数 .指数 及 对 数 困 数 等 一 些 专门 用 于 计算 的 呆 数 
分 别 编 成 一 个 个 子 程序 , 放 在 程序 库 中 供 调 用 ,这 些 子 程序 就 称 为 内 部 男 数 或 标准 图 数 。 用 
户 在 使 用 时 不 必 重 新 编写 实现 这 些 困 数 运 算 的 源 程序 ,只 要 写 出 相应 的 困 数 名 和 该 困 数 所 
要 求 的 自 变量 ( 变 元 ,参数 ) 即 可 。 例 如 : 

SQRT(4. 0) 求 出 4.0 的 平方 根 , 即 V4 

SIN(2.0) “ 求 出 2( 驳 度 ) 的 正弦 值 
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EXP(3.5) 求 出 ee 

LOG(3.0)” 求 出 ln3 

FORTRAN95 提供 了 130 多 个 标准 畏 数 , 表 3.6 给 出 了 部 分 第 用 标准 隐 数 。 

使 用 标准 图 数 要 注意 以 下 几 点 。 

(1) 在 使 用 标准 函数 时 , 目 变 量 必 须要 用 括号 括 起 来 。 如 数学 表达 式 “sinx 十 cosy”, 用 
FORTRAN 语言 表示 必须 写成 “sin(x) 十 cos(y)”, 不 加 括号 就 是 错误 的 。 

(2) 标准 卫 数 的 月 变量 个 数 可 能 不 止 一 个 ,使 用 时 必须 与 其 要 求 相 匹 配 。 如 平方 根 隔 
数 、 三 角 函 数 等 只 有 一 个 自 变 量 ,MOD 和 SIGN 函数 必须 要 有 两 个 自 变 量 , MAX 和 MIN 
困 数 需要 两 个 或 两 个 以 上 上 月 变量 。 注 意 : 当日 变量 个 数 规定 为 2 时 ,日 变量 的 顺序 不 能 任 
意 古 倒 。 例 如 ,MOD(8,3) 表 示 8 被 3 除 的 余数 ,其 值 为 2, 而 MOD(3,8) 表 示 3 被 8 除 的 余 
数 , 其 值 为 3。 当 目 变 量 个 数 大 于 等 于 3 时 , 困 数 结果 和 上 月 变量 的 顺序 无 关 。 如 MAX(6 ,8， 
10) 和 MAX(10,6,8) 的 结果 是 一 样 的 。 

(3) 因数 的 上 月 变量 是 有 类 型 的 , 困 数 值 也 是 有 类 型 的 。 如 MOD(8,3) 中 , 目 变 量 8 和 日 
变量 3 是 整 型 ,图 数 MOD(8,3) 的 值 *2” 也 是 整 型 ,如 果 写 成 MOD(8.0,3.0) ,日 变量 是 实 
型 的 ,函数 值 也 是 实 型 的 ,其 值 为 2.0。 表 3.6 列 出 了 所 给 标准 函数 的 自 变 量 类 型 和 相应 的 
图 数值 类 型 。 

表 3.6 部 分 常用 标准 函数 
ABSCN 与 和 变量 相同 
COSCX) 与 自 变量 相同 
SING) 与 自 变量 相同 


将 | 将 | 睛 
咒 | 敬 | 融 | 将 


和 
加 
本 


TAN(X) 本 日 变量 相同 
ACOS(X) 反 余弦 与 自 变量 相同 


ASING) 与 和 变量 相同 
ATANOO 与 自 变量 相同 
L0G 与 和 变量 相同 
LOG100 与 自 变量 相同 


将 
甜 


EXPO) 与 自 变 量 相同 
ee 实 . 庶 
INTCX) 整 型 
MODCX,Y) 与 自 变量 相同 
MAX(Xi ,XX,) 求 Xi ,X。…X, 中 最 大 值 与 自 变 量 相同 
MIN(X1 ,Xs …X。) 求 Xi ,X,…X, 中 最 小 值 与 自 变量 相同 
SIGN(X, Y) 求 X 的 绝对 值 乘 Y 的 符号 与 自 变量 相同 
REAL(X,[ 实 型 KIND 值 ]) | 将 X 转 换 为 实 型 KIND 值 的 实数 实 型 
HUGE(X) 查询 X 所 属 类 型 的 最 大 值 与 自 变量 相同 
TINY(X) 查询 X 所 属 类 型 的 最 小 什 与 自 变 量 相同 


KIND(X) 查询 X 的 KIND 参数 什 整 型 
CHAR(N) 将 ASCII 码 N 转换 为 对 应 的 字符 字符 型 
ICHAR(C) 或 IACHAR(C) | 将 字符 C 转换 为 对 应 的 ASCII 码 整 型 
LEN(S) 整 型 
SIZEOFCX 整 开 
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(4) 自 变 量 可 以 是 常量 .变量 或 表达 式 。 如 SQRT(4.0) SQRT(CA) SQRT(2.0 十 2.0) 
均 为 合法 。 但 类 型 应 符合 要 求 , 例 如 SQRT(D) 就 不 合法 ,因为 I 为 整 型 变量 ,而 SQRT 函数 
的 有 日 变量 不 能 是 整 型 量 。 

(5) 三 角 函 数 中 角度 的 单位 是 “弧度 ”, 而 不 是 “ 度 ”。 例 如 ,SIN(1.0) 表 示 的 不 是 
sinl" ,而 是 sin57. 29578"。1 弧度 一 57. 29578",sin30" 应 写成 SIN(30 * 3. 14159/180)。 

(6) 每 个 标准 函数 的 函数 值 只 有 一 个 ,是 有 明确 的 数据 类 型 规定 。 绝 大 多 数 标准 函数 
的 函数 值 类 型 与 自 变量 类 型 相同 ,如 函数 SQRT(4. 0D0) = 2.0D0, 类 型 都 为 双 精 度 型 ,也 
有 个 别 标准 男 数 的 图 数值 类 型 与 日 变量 类 型 不 同 , 如 男 数 INT(8.6) = 8, 自 变量 类 型 为 实 
型 ,而 图 数值 类 型 为 整 型 。 当 X 是 6 种 基本 数据 类 型 之 一 时 ,SIZEOF(CX) 的 类 型 均 是 整 型 。 

(7) IMPLICIT 语句 不 能 改变 内 部 为数 的 类 型 。 

(8) 图 数 引 用 的 结果 只 是 得 到 一 个 图 数值 ,因此 ,因数 引用 不 能 作为 一 个 单独 的 语句 ， 
而 只 能 作为 表达 式 的 一 部 分 。 它 可 以 出 现在 任何 可 以 出 现 表 达 式 的 地 方 ( 如 出 现在 赋值 语 
句 的 右边 .输出 语句 的 输出 表 中 ,等 等 ,当然 也 可 以 在 困 数 调用 中 作为 实际 参数 ) 。 

下 面 通过 例题 来 学 习 标 准 函 数 的 使 用 。 

【 例 3-10】 标准 郊 数 的 应 用 示例 。 


SIN(3. 141 592 6/2) 求 正弦 
NINT(3.7) 四 会 五 人 取 整 
LOG(1, 5732,—1,6732) (0.799 685 4, 一 0.785 398 2) | 复数 (1.5732, 一 1. 5732) 的 目 然 对 数 
ICHAR('c') 99 | 小 写字 母 c 转 换 为 其 ASCII 码 什 
CHAR(99) 将 ASCII 码 值 转换 为 对 应 的 字符 
MOD(3.5, 一 2.5) 求 两 个 实 型 数 3. 5 除 以 一 2. 5 的 余数 
MOD( 一 3,2) 求 两 个 整 型 数 一 3 除 以 2 的 余数 
SIGN( 一 3,2) 将 第 二 个 数 的 符号 传递 给 第 一 个 数 
SIZEOF (.TRUE. ) 逻辑 型 数据 的 存储 字 节 数 
SIZEOF (3. 6) 4 | 单 精度 型 数据 的 存储 字 节 数 
SIZEOF (2) 4 | 整 型 数据 的 存储 字 节 数 
SIZEOF (2. 3_8,2) 双 精 度 复 型 数据 的 存储 字 节 数 

习 题 3 


1. FORTRAN95 的 字符 集 包 括 哪些 内 容 ? 
2. 判定 下 列 标 识 符 中 哪些 是 合法 的 .哪些 是 非法 的 ,并 解释 非法 标识 符 的 错误 原因 。 


(1) Al2C 
C5 
(9) PRINT 


(2) C%50 (3) DZD~1 (4) SIN(X) 
(6) 'ONE' (7) AX 12 (8) 23CS 
(10) 兰州 (11) C$D (12) HEL 


3. FORTRAN95 的 基本 数据 类 型 有 哪些 ? 
4. 简 述 符号 常量 与 变量 的 区 别 。 
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5. 下 列 数据 中 哪些 是 合法 的 FORTRAN95 常量? 


(1) 34 (2) 3. 1415926 (3) —129_1 

(4) 3. 96e 一 2 (5) 十 2506 3 (6) PARAMETER(n= 10) 
(7) 'CHINA' (8) "中 国 " (9) (2.3,5.7) 

(10) £ (11) .TURE. CIDY .2 

(187 23 (14) 3.96 关 e 一 2 [157 3. 966 一 六 

(16) .e 一 2 

6. 已 知 A==2、B==3,、C=5.0, 且 I==2、J] 二 3, 求 下 列表 达 式 的 值 。 

(1) A* B+C/I (2) A * (B+C) (3) A/I/J 

(4) A xx J xx*I (5) A* B/C (6) A * (Bxx 1/J) 


(7) Ax BxxI1/A xx*xJ¥*2 


顺 友 结构 程序 设计 


教学 目标 : 

。 掌握 FORTRAN 程序 的 基本 框架 ; 

。 掌握 赋值 语句 的 使 用 方法 ; 

。 掌握 表 挖 输入 输出 语句 的 使 用 方法 ; 

。 掌握 END 语句 的 使 用 方法 ; 

。 了 解 STOP 语 身 、PAUSE 语句 的 使 用 方法 。 


前 两 音 讲 述 了 程序 中 的 一 些 基 本 要 素 ,它们 是 构成 FORTRAN 语言 程序 的 基本 组 成 部 
分 。 从 本 章 开 始 学 习 编 程 。 首 先 从 顺序 结构 开始 。 顺 序 结构 是 三 种 基本 结构 中 最 简单 的 一 
种 ,只 须 wale -条 语句 即 可 。 

本 章 绍 实现 顺序 结构 的 基本 语句: 赋值 语句 、 人 简单 输入 输出 语句 等 ,帮助 初学 者 
掌握 FORTRAN 程序 的 基本 框架 。 

先 从 一 个 简单 的 例子 开始 学 习 编 程 。 


【 例 4-1】 已 知 A=1,B==2,C= A 十 B, 编 写 程序 计算 C 的 值 。 
程序 编写 如 下 : 

INTEGER A,B,C !' 定 义 整 型 变量 A,B,C 

A=1 ! 给 A 赋值 1 

B=2 ! 给 了 日 赋值 2 

C=A+B ! 计算 A\B 的 和 

PRINT * CC= ,A,'+ 1 B'= ',C ! 输 出 C 的 值 

END 

程序 运行 结果 如 图 4. 1 所 示 。 


“E:\bookwrite\d3z\ezl\Debue\exl.... 


这 个 实例 程序 很 简单 ,程序 的 实际 执行 命 ” 椭 py 
令 有 四 行 ( 第 2 至 5 行 )。 

第 2 行 到 第 3 行 是 赋值 语句 ,分 别 将 原始 
数据 赋值 给 变量 A、B, 以 待 后 续 处 理 ; 第 4 行 图 4.1 例 4-1 运行 结果 
也 是 赋值 语句 ,是 对 原始 数据 的 加 工 处 理 , 即 求 
和 , 求 和 后 的 结果 保存 到 变量 C 中 ; 第 5 行 是 输出 语句 ,将 运行 结果 显示 到 屏幕 上 。 

程序 执行 时 按 顺 序 依次 执行 每 一 个 语句 的 命令 ,直到 程序 结束 。 这 种 程序 结构 称 为 顺 
序 结 构 , 它 是 最 简单 的 程序 设计 结构 。 

从 本 例 也 可 以 看 出 ,FORTRAN 程序 的 基本 框架 是 : 类 型 说 明 、 数 据 准 备 、 算 法 实现 、 
输出 结果 、 结 束 程序 。 


Press any key to continue 
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下 面 介 绍 实现 顺 序 结 构 的 最 基本 语句 。 
4.1 赋值 语句 


4.1.1 赋值 语句 的 性 质 和 作用 
赋值 的 作用 是 将 一 个 确定 的 值 赋 给 一 个 变量 。 其 一 般 格式 为 : 
V= e 
V 代表 一 个 变量 名 (V 是 “变量 ”的 英文 单词 Variable 的 第 一 个 字母 ),“==” 称 为 赋值 
号 ,e 代表 一 个 表达 式 (e 是 “表达 式 ” 的 英文 单词 expression 的 第 一 个 字母 )。 也 可 以 写成 : 
变量 = 表达 式 
例如 : 


全， 


II | 


多 三 1] 
Y= 三 名 
Z= (B+SORT(6x*x 2—-4xAxC))/(2*x*A) 
部 是 正确 的 赋值 语句 。 

对 赋值 语句 说 明 如 下 。 

(1) FORTRAN 的 赋值 语句 有 三 类 : 算术 赋值 语句 ; 逻辑 赋值 语句 ; 字符 赋值 语句 。 

(2) 赋值 语句 中 的 ==” 是 赋值 的 符号 ,而 不 是 等 号 。 它 的 作用 是 将 赋值 号 右边 的 表达 
式 的 值 赋 给 其 左边 的 变量 。 例 如 ,赋值 语句 “A==3.6” 的 作用 是 3.6 二 A( 将 3.6 送 到 变量 A 
中 )。 因 此 在 阅读 程序 时 对 赋值 号 的 理解 应 是 带 方 品 的 ,“A 二 3.6” 应 理解 为 “A 二 3. 6”。 

(3) 算术 赋值 语句 兼 有 计算 和 赋值 的 双重 功能 。 先 计算 出 表达 式 的 值 ; 然后 将 该 值 赋 
给 一 个 变量 。FORTRAN 程序 中 的 求 值 计算 主要 是 用 赋值 语句 实现 的 。 本 章 例 4-1 中 的 
第 2、3、4 行 都 是 赋值 语句 ,可 以 看 出 赋值 语句 在 程序 中 的 作用 。 

(4) 赋值 语句 给 变量 赋值 的 过 程 是 宪 盖 ”的 过 程 , 即 在 变量 对 应 的 存储 单元 中 用 新 的 
值 去 替换 原 有 的 值 。 例 如 : 


N= N+1 


在 数学 中 是 错误 的 ,但 在 FORTRAN 语言 中 却 是 一 句 正 确 的 赋值 语句 。 该 赋值 语句 作用 是 
取出 与 变量 N 对 应 的 存储 单元 中 的 数值 ,加 上 1, 再 将 新 的 值 存 人 变量 N 对 应 的 存储 单元 
中 ,覆盖 原来 的 值 。 如 果 N 原来 为 2, 执 行 上 面 的 赋值 语句 后 ,NN 的 值 是 3, 再 执行 一 次 ,NN 
的 值 是 4, 以 此 类 推 。 

(5) 根据 赋值 语句 的 性 质 , 可 以 看 出 ,赋值 号 左边 只 能 是 变量 名 (或 数组 名 、 数 组 元 系 
名 ) ,而 不 能 是 表达 式 。 赋 值 号 右边 可 以 是 常量 变量 或 表达 式 ( 常 量 或 变量 是 表达 式 的 最 人 简 
单 的 形式 )。 下 面 的 赋值 语句 是 不 合法 的 : 


X+Y=3.6 


因为 找 不 到 一 个 “X 十 Y” 的 单元 来 存放 3.6 这 个 数值 。 显 然 ,赋值 号 两 侧 的 内 容 不 能 任意 调 
换 。 下 面 两 个 程序 的 作用 是 不 同 的 : 
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程序 1 程序 2 
A=1.0 A=1.0 

B= 2.0 B=2.0 

及 = 了 B = 及 
PRINT* ,A,B PRINI 关 ,A,B 
END END 


程序 1 打印 出 的 A 和 B 的 值 均 为 2.0, 而 程序 2 打印 出 的 A 和 B 的 值 均 为 1.0。 

(6) 赋值 语句 不 能 连 等 , 即 赋 值 语 句 只 人 允许 出 现 一 个 赋值 号 ,不 允许 有 两 个 赋值 号 。 例 
如 ,a 二 b==3 在 数学 上 是 合法 的 ,但 在 FORTRAN 中 是 非法 的 赋值 语句 。 

(7) 复 型 变量 的 赋值 语句 中 ,如 果实 部 和 虚 部 不 都 是 和 常数, 而 是 表达 式 , 应 该 用 CMPLX 
吊 数 将 实 部 和 虚 部 组 成 复 型 数据 下 赋 给 复 型 变量 。 

例如 : 

INTEGER C 

COMPLEX A,B 

A= (2.5,3.0) 

B= CMPLX(2.5* C,3.0) 

如 果 CMPLX 函数 只 有 一 个 日 变量 , 则 它 代表 实 部 ,如 CMPLX(3.0) 的 作用 是 将 实数 
3.0 转换 成 复数 (3.0,0.0)。 


4.1.2 执行 算术 赋值 语句 时 的 类 型 转换 问题 

一 个 算术 赋值 语句 中 的 被 赋值 的 变量 (V) 和 表达 式 (e) 的 类 型 可 以 相同 ,也 可 以 不 同 。 
FORTRAN 有 如 下 规定 。 

(1) 如 有 条 变量 V 与 表达 式 的 类 型 相同 , 则 和 直接 进行 厂 什 。 如 : 

I=3 (I 和 3 都 是 整 型 ) 

RAR=5.7x*T (A,5.7,T 都 是 实 型 ) 

(2) 如 果 类 型 不 同 , 则 应 先 算 出 表达 式 的 值 ,然后 将 该 表达 式 的 值 转化 成 被 赋值 变量 的 
类 型 ,最 后 骨 进 行 赋值 。 如 : 


下 二 了 了 


先 计算 表达 式 的 值 ,3. 5 * 2. 1 的 值 为 7. 35, 实 型 。 而 赋值 号 前 面 的 变量 I 为 整 型 (I-N 规 
则 ) ,因此 系统 先 目 动 将 7. 35 转化 成 整数 7( 与 赋值 号 前 面 的 变量 I 类 型 相同 ) ,再 赋值 给 变 
量 1,1 的 值 等 于 7。 叉 如: 

T= 3x*5/7 


表达 式 的 值 为 2, 整 型 ,赋值 号 前 面 的 变量 本 为 实 型 (IN 规则 ), 故 系统 先 将 整数 2 转化 成 
实数 2.0, 上 骨 赋 给 变量 本,T 的 值 为 2.0( 在 数学 上 2 和 2. 0 是 等 价 的 ,但 在 FORTRAN 中 二 
者 在 内 存 中 的 存储 形式 不 同 )。 

从 以 上 两 例 可 以 看 出 ,对 赋值 号 两 侧 类 型 不 同 的 赋值 语句 ,其 赋值 过 程 是 “ 先 算 后 化 再 
赋值 ”, 即 把 表达 式 的 结果 先 转 化 成 被 赋值 变量 的 类 型 ,然后 再 进行 赋值 。 青 如 : 
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INTEGER: : N=3 

N=Nx1.5+N/4 
执行 后 ,N 的 值 为 4。 

赋值 过 程 为 : 先 计算 表达 式 N * 1.5 十 N/4, 表 达 式 计算 分 3 步 ; 第 1 步 计 算 Nx1.5， 
结果 为 4.5; 第 2 步 计算 N/4, 结 果 为 0, 第 3 步 计算 4.5 十 0, 结 果 为 4.5。 然 后 将 表达 式 结 
果 4. 5 转换 为 整 型 值 4, 再 赋值 给 整 型 变量 N。 

当 赋 值 号 两 侧 的 类 型 不 同时 ,往往 会 产生 程序 设计 者 预想 不 到 的 结 床 。 如 : 


IMAX = 13.7 2.5 


本 应 得 到 34. 25 ,但 由 于 被 赋值 的 变量 为 整 型 ,因此 IMAX 的 值 为 34。 所 以 在 编写 程序 时 ， 
应 尽 可 能 使 赋值 语句 两 侧 保 持 相 同类 型 。 还 应 说 明 的 是 ,如 果 类 型 不 同 而 进行 转换 ,将 多 耗 
费 机 需 运 行 时 间 。 


4.1.3 ”字符 赋值 语句 和 字符 运算 符 


对 于 字符 赋值 语句 ,赋值 时 应 遵循 以 下 规律 。 

右边 字符 表达 式 长 度 与 左边 变量 长 度 相 同时 ,直接 赋值 ; 

右边 字符 表达 式 长 度 小 于 左边 变量 长 度 时 ,在 表达 式 字符 串 后 面 补 空格 ,使 其 和 变量 等 
长 ,然后 赋值 , 即 “ 左 对 齐 , 右 补 空格 ”; 

右边 字符 表达 式 长 度 大 于 左边 变量 长 度 时 ,将 表达 式 字符 串 从 左 侧 开始 截取 与 变量 长 
度 相同 的 字符 串 ,然后 赋值 ,剩余 售 去 , 即 “ 左 对 齐 , 右 截 掉 ”。 

【 例 4-2】 字符 型 赋值 语句 练习 。 

CHARACTER * 5 CH1, CH2, CH3, CH4A * 1,CH5 * 11 

CH1 = 'LOVE' 

CH2 = 'CHINA' 

CH3 = 'STUDENT' 

CH4 = 'I' 

CH5 = CHA//' '//CH1//'¥YOU! ' 


执行 后 ,CH1 为 'LOVE_'"(_ 表 示 空 格 ),CH 2 为 'CHINA',CH 3 为 'STUDE',CH 4 为 
TssT LOVE YOUr 

需要 注意 的 是 : 

(1) 例 4-2 中 出 现 的 字符 连接 符 “//”, 作 用 是 将 两 个 字符 型 数据 连接 起 来 ,组 成 一 个 新 
字符 型 数据 ,如 例 4-2 中 的 CH 5。 它 是 唯一 的 一 个 字符 运算 符 。 

(2) CH2(3:3) 表 示 CH 2 的 一 个 子 串 , 即 一 个 字符 串 的 一 部 分 称 为 该 字符 串 的 子 串 。 
通常 表示 为 : 

字符 变量 名 (m: n) 
其 中 x 和 是 整数 或 整 型 表达 式 , 用 来 表示 子 串 在 字符 串 中 的 起 止 位 置 , 取 值 范围 为 : 字符 
串 长 度 宇 n 宇 m 之 1。 
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4.2 向 音 的 输出 语句 


4.2.1 输出 语句 的 作用 和 分 类 


程序 的 作用 是 对 输入 的 数据 进行 加 工 处 理 , 然 后 将 结果 输出 。 最 常用 的 输出 是 “打印 ” 
(或 显示 )。FORTRAN 中 常用 PRINT 语句 或 WRITE 语句 实现 打印 输出 。 

要 输出 一 个 (或 多 个 ) 数 据 时 ,需要 通知 系统 以 下 信息 。 

(1) 在 什么 设备 上 输出 。 

(2) 用 什么 格式 输出 (每 个 数据 如 何 表示 、 占 多 少 列 ,数据 间 如 何 分 隅 等 ) 。 

(3) 输出 哪些 数据 , 即 输 出 的 内 容 。 

如 果 已 明确 用 打印 机 或 显示 器 输出 ,就 可 以 用 PRINT 语句 ,或 者 反 过 来 说 ,用 PRINT 
语句 只 能 在 打印 机 或 显示 嚣 输出。 这样 ,在 PRINT 语句 中 还 要 将 上 面 提 到 的 第 (2)、(3) 个 
信息 通知 系统 。 

FORTRAN 的 输出 格式 有 以 下 三 类 。 

(1) 按 系统 隐 含 的 标准 格式 输出 ,又 称 表 控 格式 输出 。 

(2) 按 用 户 指定 的 格式 输出 , 即 有 格式 输出 。 

(3) 无 格式 的 输出 。 它 是 以 二 进 制 的 形式 输出 数据 ,只 适用 于 癌 磁 盘 、 磁 市 等 输出 。 

本 章 只 介绍 前 两 种 输出 格式 。 


4.2.2 表 控 输出 语句 


表 控 输出 是 “ 表 控 格式 ”输出 (List Directed Format) 的 简称, 即 由 计算 机 系统 隐 售 规定 
了 输出 的 格式 , 即 标准 格式 。 用 这 种 方式 得 出 数据 时 ,系统 目 动 地 分 别 为 每 一 个 不 同类 型 的 
数据 规定 所 占 的 列 数 和 数据 的 表示 形式 (例如 ,实数 是 用 小 数 形式 输出 还 是 用 指数 形式 输 
出 ,小数 点 位 置 在 何 处 ,等 等 )。 表 控 输 出 是 最 简单 的 输出 方式 ,用 户 不 必 说 明 输 出 格式 , 系 
统 自动 按 隐 含 的 标准 格式 输出 ,因此 表 控 输出 也 称 为 固定 格式 输出 。 

表 控 输出 语句 一 般 格 式 为 : 

PRINT * ,输出 项 表 列 


“x ”表示 在 系统 隐 含 指定 的 输出 设备 (一 般 为 显示 器 ) 上 按 系 统 隐 含 的 标准 格式 输出 
数据 。 

输出 项 表 列 由 若干 输出 项 组 成 ,输出 项 可 以 是 常量 、 变 量 、 表 达 式 ,各 输出 项 之 间 用 逗号 
间隔 。 

例如 “PRINTx ,A,35.0,A*2” 是 合法 输出 语句 。 执 行 此 输出 语句 时 ,计算 机 按 系 统 
隐 舍 规定 的 格式 在 显示 右上 输出 3 个 实 型 数据 。 

说 明 : 

(1)“x* ”后 可 以 无 任何 输出 项 ,如 “PRINT * ”输出 一 空白 行 ,相当 于 一 个 换行 语句 。 

(2) 系统 隐 仿 规定 的 输出 格式 非 痕 商 单 ,数据 按 规定 的 输出 列 数 及 显示 形式 输出 ,数据 
之 间 不 添加 分 隔 符 。 

(3) 可 以 在 一 个 PRINT 语句 中 输出 不 同类 型 的 数据 。 如 
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PRINT x* ,有 RB,C,IJI,K CHS&S 井 ， 


当 一 个 PRINT 语句 的 输出 在 一 行内 打印 不 下 时 ,会 自动 换行 再 打印 ,直到 把 全 部 输出 的 数 
据 打 印 完 。 

(4) 输出 语句 中 输出 项 如 果 是 字符 串 , 则 字符 串 中 内 容 原 样 输出 。 

例如 : 

X=1.5; Y= 2.5; 2=6.5 

PRINT x* ,' 平 均值 = ',(X+Y+2)/3.0 

END 

输出 结果 如 图 4. 2 所 示 。 

(5) 有 多 个 输出 语句 时 ,每 个 PRINT 语句 都 从 新 的 一 行 开 始 输出 数据 。 

例如 ,执行 下 面 霹 句 : 

I=12;J= -25; A=12.345; B= 245. 5e2 

PRINT* ,I,J 

PRINT* ,A 

PRINT * ,B 

END 


输出 结果 如 图 4. 3 所 示 。 


o “BE:Mbookls\ls\Debue\ls. exe” 


= 12 -25 
人 ookls\1ls\Deboae\ls. 各 下 电 EE 于 12 .4500 


[na “四 A i 
半 培 慎 = 。 3.5888600 2455 日 . 99 


Press any key to continue Press any key to continue 


图 4.2 运行 结果 示例 1 图 4.3 运行 结果 示例 2 


程序 中 有 三 个 PRINT 语句 ,所 以 分 三 行 输 出 。 

(6) 在 输出 时 ,如 果 一 个 实数 的 整数 部 分 的 位 数 多 于 系统 规定 的 有 效 位 数 , 或 实数 的 数 
值 小 于 1, 则 在 输出 时 会 和 目 动 转 换 成 规范 化 的 指数 形式 输出 。 

(7) 表 控 输出 语句 也 可 以 写 为 以 下 形式 ， 

WRITE( * ,< ) 输 出 项 表 列 


其 中 ,第 一 个 * ”表示 系统 隐 含 指定 的 输出 设备 (显示 着 ) ,第 二 个 "<* ”表示 用 表 控 格式 

注意 ,不 同 的 计算 机 系统 对 表 控 输出 有 不 同 的 规定 。 例 如 对 一 个 整 型 数 , 有 的 系统 分 配 
13 列 , 有 的 分 配 10 列 ,也 有 的 不 规定 固定 的 列 数 而 按 数据 的 实际 长 度 打印 ,在 两 个 数据 之 
间 空 一 个 空格 。 请 读者 目 己 上 机 体会 。 


4.3 ”人 和 俐 时 的 输入 语句 


4.3.1 输入 语句 的 作用 和 分 类 
所 谓 输入 是 指 从 外 部 设备 上 将 数据 输 到 计算 机 内 存 中 。 向 计算 机 输入 数据 又 叫做 “ 计 
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算 机 从 外 部 设备 读 人 人 数据”, 输出 数据 又 叫做 “ 癌 外 部 设备 写 数 据 ”。 

FORTRAN 用 READ 语句 实现 输入 数据 。 与 输出 一 样 ,输入 也 有 以 下 三 种 类 型 。 

(1) 用 自由 格式 输入 ,又 称 表 控 格式 输入 。 

(2) 按 用 户 指定 的 格式 输入 。 

(3) 无 格式 的 输入 。 即 以 二 进 制 形式 输入 ,只 适用 于 从 磁盘 、 磁 市 等 输入 。 

据 前 文 所 述 ,赋值 语句 可 以 对 变量 赋 初 值 , 那 为 什么 还 要 引入 READ 语句 输入 数据 呢 ? 
先 来 看 下 面 的 例子 。 

【 例 4-3】 用 输入 语句 实现 例 4-1。 

在 例 4-1 中 ,我 们 通过 赋值 语句 将 需要 计算 的 原始 数据 1 和 2 分别 保存 到 了 变量 A 
和 也 中 ,那么 除了 通过 赋值 语句 ,还 有 其 他 方法 可 以 将 数据 1 和 2 保存 到 变量 A 和 B 中 
吗 ? 如 果 要 用 这 个 程序 求 3 和 4 的 和 值 ,或 者 其 他 两 个 整数 的 和 值 时 ,应 该 如 何 修改 程 


序 呢 ? 
上 述 问题 可 以 通过 输入 语句 解决 。 
程序 修改 如 下 : 
INTEGER A, B, C ! 定 义 整 型 变量 A,B,C 
READxX ,A, B ! 从 键盘 输入 数据 到 变量 A 和 B 
C=A+B 1 计算 A.B 的 和 
PRINT ¥*,'C= A, + 7B，= "CGC ! 输 出 C 的 值 
END 


程序 运行 结果 如 图 4.4 所 示 。 
再 次 运行 程序 ,如 图 4.5 所 示 。 


“E:\bookvwrite\d3z\exz2\Debur\erz2. exe”™ 回 | 画 x| 


“E:\bookvwrite\d3z\erz2\Debur\erz2. exe”™ -Io x| 


1,.2 
C= 1+ 


Press any key to continue, 


Press any key to continue 


4.4 例 4-3 运行 结果 1 4.5 例 4-3 运行 结果 2 
通过 执行 输入 堵 句 ,每 次 运行 程序 时 从 键盘 上 输入 两 个 不 同 整 型 数据 到 变量 A 和 BB 
中 ,增加 了 程序 的 灵活 性 ,程序 可 以 计算 任意 两 个 由 用 户 从 键盘 输入 的 数据 之 和 。 所 以 和 赋 
值 语句 相 比 ,输入 语句 增加 了 程序 的 灵活 性 和 通用 性 。 


4.3.2 表 控 输入 语句 

表 控 输入 又 称 上 月 由 格式 输入 ,用 户 不 必 指 定 输入 数据 的 格式 ,只 须 将 数据 按 其 合法 形式 
依次 输入 即 可 ,数据 间 以 逗号 或 空格 间隔 。 

表 控 输入 语句 的 一 般 格式 为 : 
“x ”表示 从 系统 隐 含 指定 的 输入 设备 (一 般 为 键盘 ) 上 按 表 控 格 式 输入 数据 。 

例如 “READ* ,A,B,C? 是 合法 输入 语句 。 执 行 此 输入 语句 要 求 用 户 从 键盘 输入 3 个 
实 型 数据 ,分 别 给 变量 A、B、C 
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键 。 


据 )， 
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说 明 : 
(1)“x* ?2 后面 可 以 为 空 , 即 “READ x ?是 合法 输入 语句 ,执行 该 霹 句 ,等 竺 用户 按 Enter 


(2) 输入 项 表 列 必须 由 变量 组 成 ( 即 READ 语句 只 能 给 变量 (数组 数组 元 系 ) 输 入 数 


可 以 有 一 个 或 多 个 变量 ,变量 之 间 用 逗号 间隔 , 且 可 以 是 多 个 不 同类 型 的 变量 ， 
下 面 语 句 是 合法 的 变量 说 明 语 句 和 输入 语句 : 

INTEGER I,J 

REAL A,B 


CHARACTER x 8 STR1, STR2 x 5 
LOGICAL LOG1, LOG2 
READ x* , STR1, 1,J,STR2,A,LOG1,B,LOG2 


(3) 输入 数据 时 ,数据 按 合法 形式 表示 ,输入 数据 的 次 序 和 类 型 要 与 输入 表 中 各 变量 的 


次 序 和 类 型 相 一 致 。 如 有 只 输入 一 个 数据 , 百 接 输入 后 回 车 确定 ; 如 和 输入 多 个 数据 ,数据 
之 间 用 喜气、 空格 或 回 车 键 问 隅 。 


例如 : 

RERD 关 ,A 

输入 方式 : 12.5w (上 巡 表 示 回 车 ,下 同 ) 
READx¥ ,A,B,C 

输入 方式 : 


12.5,2.6,31.4w 
12.52.86 3 


1 
2.6 


31.4 ww 


(4) 如 采 输 入 时 输入 数据 个 数 少 于 输入 表 中 变量 的 个 数 , 则 计算 机 将 等 待 用 户 继 续 输 


入 (光标 闪烁 ) ,如 果 输 入 数据 多 于 输入 表 中 变量 个 数 , 则 多 余数 据 不 起 作用 。 


(5) 如 果 有 多 个 输入 语句 时 ,每 个 READ 语句 都 从 新 的 一 行 开始 读数 据 。 
例如 : 

READ*x ,I,J 

READ*¥ ,A 

READ* ,B 


执行 上 面 语句 时 ,应 按 以 下 方式 输入 4 个 数据 ， 
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第 一 个 READ 语句 依次 读 12 和 25, 赋 了 予 I1 和 JJ; 第 二 个 READ 语句 从 第 二 行 开 始 读 
数 , 读 人 25.5, 赋 子 A; 第 三 个 READ 语句 从 第 三 行 开始 读数 , 读 入 3.6 ,赋予 B。 
(6) 表 控 输入 也 可 以 写 为 以 下 形式 : 
READ( x ,x ) 输 入 表 


其 中 ,第 一 个 “x ”表示 系统 隐 含 指定 的 输入 设备 (键盘 ) ,第 二 个 “x ”表示 表 控 输入 。 
4.4 END 语句 、STOP 语句 和 PAUSE 语句 


4. 4.1 END 语句 


END 语句 即 结束 语句 。 它 的 作用 为 以 下 两 点 。 

(1) 结束 本 程序 单元 的 运行 。 

(2) 作为 一 个 程序 单元 的 结束 标志 ,END 语句 应 写 在 其 所 在 程序 单元 的 最 后 一 行 。 

END 语句 在 主 程序 中 兼 有 STOP 语句 的 作用 (使 程序 停止 运行 ), 在 子 程序 中 兼 有 
RETURN 语句 的 功能 (控制 返回 到 调用 程序 ) 。 
4.4.2 STOP 语句 

STOP 语句 可 在 主 程序 单元 .模块 单元 和 外 部 子 程序 单元 中 使 用 。STOP 语句 即 停 止 
语句 , 它 的 功能 是 随时 终止 程序 运行 ,返回 操作 系统 控制 状态 。 一 个 程序 单元 中 可 有 多 个 
STOP 语句 ,STOP 语句 可 以 像 任 何 可 执行 语句 一 样 出 现在 程序 任何 可 执行 语句 处 。 

STOP 语句 的 一 般 格式 为 : 


STOP [n| 


其 中 是 一 个 不 超过 5 位 数 的 数字 或 一 个 字符 串 ,执行 STOP 语句 时 输出 整数 或 字符 串 , 供 
程序 员 辨 别 程序 流程 。 

除非 必要 ,不 要 将 STOP 命令 使 用 在 主 程序 结束 之 外 的 其 他 地 方 ,因为 一 个 程序 如 果 
有 太 多 的 终止 点 会 容易 出 错 。STOP 命令 并 不 是 必要 的 ,因为 程序 执行 完毕 会 自动 终止 。 


4. 4.3 PAUSE 语句 


PAUSE 语句 即 暂 停 语 句 , 其 功能 是 暂时 停止 程序 运行 ,而 不 是 结束 运行 。 PAUSE 请 
名 只 是 让 系统 把 程序 暂时 " 挂 起 ” ,等 待 程序 员 完 成 其 他 工 二 


一 个 PAUSE 语句 就 是 程序 中 的 一 个 “ 断 点 ”, 可 根据 需要 写 几 个 PAUSE 语句 ,即将 程 
序 根据 需要 分 成 几 个 运行 段 , 便 于 调试 程序 。 在 调试 程序 时 ,按照 PAUSE 语句 的 设置 逐 段 
检查 运行 程序 ,从 中 发 现 程序 中 的 错误 。 在 调试 完成 后 ,一 般 将 PAUSE 语句 删除 。 
PAUSE 语句 的 一 般 格 式 为 : 


PAUSE [n| 


其 中 妈 的 含义 与 STOP 语句 中 的 相同 。 
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由 于 现在 的 编译 环境 中 可 直接 设置 “ 断 点 ”, 因 此 PAUSE 语句 一 般 不 再 使 用 。 


4.5 程序 举例 


【 例 4-4】 已 知 三 角形 的 三 个 边 长 , 试 计算 三 角形 的 面积 。 
分 析 : 用 x、y、z 分 别 表 示 三 角形 的 三 个 边 长 ,s 表示 三 角形 的 面积 。 


根据 公式 s 二 Ve 一 DC 一 ye 一 z) ,其 中 c 二 < 二 Sy Z 
程序 编写 如 下 : 

REAL X,Y,2,C,S 

其 三 了 

至 三 如 

三 5 


C= (X+Y+2)/2 

S= SQRT(C* (C— XX) * (C— Y)}* (C— 2Z)) 
PRINT* ， 三 角形 的 面积 为 : ',S 

END 


程序 运行 结果 如 图 4.6 所 示 。 


EPETEEETE 


| 三 角形 的 面 可 兴 ， 6 . 900000 


Press any key to continue 


图 4.6 例 4-4 运行 结果 


【 例 4-5】 将 两 个 变量 的 值 互 换 。 

用 变量 A 和 B 人 存放 符 交 换 的 数据 ,用 临时 变量 工 保 存 其 中 
二 A, 再 通过 A=B 和 了 B=T 实 现 交换 。 

dma 


INTEGER A,B 
READ * ,A,B 

PRINT* ，' 交换 前 A 和 B 的 值 分 别 为 : ','A= ',A,'B=',B 
T= 

A=B 

B=T 

PRINT x* ,，' 变换 后 A 和 B 的 值 分 别 为 : ', 'A= ',A,'B= ',B 
END 


程序 运行 结果 如 图 4.7 所 示 。 


避 贡 “E:\bookls\ls\Debug\ls. eze ; 


3.5 
交换 前 8 和 B 的 什 值 分 别 汰 ， f= 


| 变 挽 后 A 和 B 的 值 分 别 为 ，A= 


IPress any key to continue 


图 4.7 例 4-5 运行 结果 


i 


变量 (如 A) 的 
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注意 : 该 程序 也 可 以 不 用 设 中 间 变 量 工 ,直接 用 A 和 了 两 个 变量 来 完成 。 
程序 修改 如 下 : 


INTEGER A, B 
READ* , A, B 

PRINT x ， 交换 前 A 和 B 的 值 分 别 为 : ','A= ',A,'B= ',B 
A=A+B 

B=A—B 

A=A—B 

PRINT x ， 交换 后 A 和 B 的 值 分 别 为 : ', 'A= ',A,'B= ',B 
END 


【 例 4-6】 任意 输入 两 个 数 , 求 它们 的 和 、 差 、 积 、 商 。 
分 析 : 用 变量 A 和 B 存储 每 输入 的 两 个 数 , 用 变量 H、C、J、S 分 别 表 示 和 、 差 . 积 、 商 。 
程序 编写 如 下 : 


REAL A,B 
READ*x , A,B 

H=A+B 

C=A-B 

J=Ax*B 

Ss= A/B 

PRINT x , ' A,B 两 数 之 和 为 : ',H 
PRINT x ,' A,B 两 数 之 差 为 : ',C 
PRINT x , ' A,B 两 数 之 积 为 : ',J 
PRINT x* ,' A,B 两 数 之 商 为 : ',S 
END 


程序 运行 结果 如 图 4. 8 所 示 。 


“"E-:\bookls\l=s\Debue\ls. ezre”™ 


9 
A ,两 数 之 和 汶 ， 12 .89860 
和 有.B 琴 数字 差 汶 ， 6 .G80000 


Es 27 .686600 
和 .BB 同 数 之 商 半 ; 3 .86060080 


Press any key to continue 


| 
图 4.8 例 4-6 运行 结果 


注意 : 该 程序 的 计算 表达 式 可 直接 写 在 PRINT 语句 中 。 
程序 修改 如 下 : 


REAL A,B,H,C,J,sS 

READ* , A,B 

PRINTXx ,' A,B 两 数 之 和 为 : ',A+B 
PRINT x* ，' A,B 两 数 之 差 为 : ',A-B 
PRINTXx ,' A,B 两 数 之 积 为 : ',Ax*B 
PRINTXx ,' A,B 两 数 之 商 为 : ', A/B 

END 


【 例 4-7】 输入 一 个 三 位 整数 ,输出 其 每 一 位 位 数 的 平方 值 。 如 输入 135 ,分 别 输出 5° 
< 值 , 即 输出 9.9.1。 
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分 析 : 用 N 表示 原始 输入 的 三 位 整数 ,I、J、K 分 别 代 表 其 个 位 ,十 位 、 百 位 数字 ,在 输出 
语句 中 直接 输出 I、J、K 的 平方 值 ,可 以 采用 求 余 法 和 拆 数 法 。 


INTEGER N, I, J, K, M 


READ*x ,N 
PRINT x ，' 原来 的 三 位 整数 为 : ',N 

I = MOD(N, 10) ! 求 的 个 位 数字 
J = MOD(N/10, 10) ! 求 机 的 十 位 数字 
K= N/100 ! 求 NH 的 百 位 数字 


PRINT* ， 个 位 数字 的 平方 是 : "和 Ixx2 
PRINT* ， 十 位 数字 的 平方 是 : ',J x*x 2 
PRINT x* ， 百 位 数字 的 平方 是 : ,Kxx2 


END 
可 以 看 出 ,用 求 余 法 计算 各 位 数字 时 , 先 计算 任 何 一 位 数字 都 可 以 , 即 求解 个 位 .十 位 、 
百 位 的 顺序 不 受 限制 。 


程序 运行 如 图 4.9 所 示 。 


“EE:\bookls\l=\Debae\ls. ere” 


Press any key to ConNnt 1nuwe 


图 4.9 例 4-7 运行 结果 


方法 2: 拆 数 法 

解决 该 题目 的 关键 在 于 如 何 表示 数字 N 的 各 位 数字 ,也 可 根据 数 的 大 小 的 表示 方法 ， 
结合 数学 知识 ,用 如 下 方法 计算 ,人 简称 拆 数 法 。 如 123= 二 1X10 十 2X10 十 3, 即 百 位 上 的 数 
字 代 表 几 个 百 , 十 位 上 的 数字 代表 几 个 十 ,个 位 上 的 数字 代表 几 个 一 。 由 此 可 以 分 别 求 出 每 
个 数字 各 个 位 上 的 数字 。 本 例 采 用 拆 数 法 求 得 的 各 位 上 数字 的 过 j 程 如 下 ， 


K= N/100 ! 求 日 的 百 位 数字 
J= (N—- Kx 100)/10 ! 求 的 十 位 数字 
I=N-Kx100-Jx*10 ! 求 NH 的 个 位 数字 


可 以 看 出 ,除了 采用 数字 大 小 的 表示 方法 外 ,还 利用 了 整除 整 得 整 的 FORTRAN 规定 。 
和 求 余 法 相 比 ,用 拆 数 法 求解 个 位 ,十 位 、 百 位 的 顺序 受 限 , 即 应 先 求 高 位 上 的 数字 ,再 求 低 
位 上 的 数字 。 

在 求解 各 位 上 的 数字 时 , 求 余 法 和 拆 数 法 可 以 混用 。 也 可 以 采用 别 的 方法 来 表示 NN 的 
各 位 数字 ,请 读者 上 自己 动手 写 一 下 。 


1. 判断 下 列 赋值 语句 的 正 误 ,如果 错 误 ,请 说 明理 由 。 变 量 的 类 型 遵循 I_N 规则 。 
(1) V=v 
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(2) X 一 2A 十 B 
(3) Mx N=4xAxx2—2xB—AxAxC 
(yx 2 
(a7 1 = LERUD 
2. 写 出 执行 下 列 赋值 语句 后 变量 中 的 值 。 变 量 的 类 型 遵循 IN 规则 。 设 I=9,J=3， 
K=—4,T=2.5,X=6。 


(1) L=1/J]¥*X (2) M 王 J < 工 十 (3) Y=]1.0x* K/X 
(C4) Z 王 十 攻关 工 (5) A=]1/K* KK xx*2 
3. 写 出 以 下 程序 的 运行 结果 。 
(1) A=12.58 (2) K=2.5*%2/5*3/2 
A= (A—.15)*10 WRITE( * , * ) 9/10,MOD(9,10),K 
I=A END 
A=I 
A= A/10 
PRINT * ,A 
END 


(3) CHARACTER x* 5 CH1,CH 2,CH 3x10 
CH1= easy 
CH 2= 'difficult ' 
CH 3= CH 1//CH2 
CH1= CH 3(6:9) 
CH2= CH 3(:5) 
PRINT * ,CH 1,CH 2,CH 3 


4. 编写 程序 ,解决 下 面 的 问题 。 

(1) 输入 一 个 小 写字 母 ,将 其 转换 为 大 写字 母后 输出 。 

(2) 任意 输入 一 个 两 位 数 , 求 其 个 位 数字 和 十 位 数字 的 和 为 多 少 ; 将 个 位 数字 和 十 位 
数字 互 换 , 求 得 到 的 新 的 两 位 数 是 多 少 ， 

(3) 已 知 f(x)= 二 x 十 sin X 十 In(x' 十 1) ,输入 日 变量 的 值 , 求 函 数值 。 

(4) 某 地 2017 年 人 均 收 入 为 15 000 元 , 求 : 

Q 如 果 到 2030 年 人 均 收 入 翻 两 鼻 , 则 年 平均 增长 速度 为 多 少 ? 

@ 如 果 年 平均 增长 速度 为 5%, 几 年 后 人 均 收 入 可 以 翻 两 番 ? 


选择 结构 程序 设计 


教学 目标 : 

。 掌握 6 个 关系 运算 符 和 6 个 逻辑 运算 符 ; 
。 学 会 运算 第 见 的 关系 表达 式 和 还 辑 表达 趟 ; 
。 熟练 掌握 逻辑 IF 语句 ; 

。 就 练 掌握 块 IF 结构 ; 

。 灵活 使 用 块 IF 结构 的 嵌 套 ; 

。 理解 块 CASE 结构 。 


顺序 结构 由 上 和 而 下 依次 执行 每 一 条 语句 ,只 能 解决 傈 单 的 问题 。 在 实际 问题 中 常 第 要 
根据 不 同 的 条 件 执行 不 同 的 语句 ,这 束 需 要 引入 选择 结构 。 
选择 结构 : 根据 给 定 的 条 件 是 否 成 立 , 选 择 执行 条 一 部 分 的 操作 。 故 选择 结构 又 叫 分 


本 章 先 介绍 用 于 条 件 准 备 的 关系 表达 式 和 逻辑 表达 式 , 再 介绍 用 逻辑 IF 语句 、 块 IF 结 
构 和 CASE 结构 来 实现 选择 。 


5.1 选择 结构 中 的 条 件 准备 


用 选择 结构 ,必须 先 准 备 条 件 。 准 备 条 件 常 用 关系 表达 式 和 逻 和 示 达 陈 来 实现 。 什 么 
是 表达 式 ? 表达 式 驶 是 用 运算 符 将 常量 .变量 和 因数 等 连接 起 来 的 式 了 于。 运算 人 符 是 对 同类 
型 的 数据 进行 运算 操作 的 符号 。 和 表达 式 的 类 型 由 运算 符 的 类 型 决定 。 每 个 表达 式 按 照 规定 
的 运算 规则 产生 一 个 唯一 的 值 。 

FORTRAN 共有 四 种 表达 式 , 即 算术 表达 式 、. 字 符 表 达 式 .关系 表达 式 和 逻辑 表达 式 。 
前 面 草 六 里 我 们 介绍 了 算术 表达 式 和 字符 表达 式 ( 字 人 符 运 自 符 只 有 一 个 "/] 字符 连 接 符 )， 
本 章 介 绍 关 系 表 达 式 和 逻辑 表达 式 。 


5.1.1 关系 运算 待 和 天 系 表达 式 
1. 关系 运算 符 
FORTRAN95 提供 了 6 个 关系 运算 和 从 ,如 表 5.1 所 示 。 
使 用 关系 运算 符 时 要 注意 以 下 几 点 。 
(1) 两 种 格式 可 以 单独 使 用 ,也 可 以 混合 使 用 。 
(2) 使 用 字母 格式 时 ,两边 黑 点 不 能 省 略 。 
(3) 各 关系 运算 符 优 先 级 别 相同 ,从 前 向 后 依次 运算 即 可 。 
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表 5.1 FORTRAN9S 支持 的 关系 运算 符 
关系 运算 符 
字母 格式 


英语 含义 数学 意义 


AF 
下 小 于 等 
== 
/= 
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. eg. 

‘ne | /= | ntequalto 不 等 于 
二 大 于 

. Ee greater than or equal to 大 于 等 于 


由 关系 运算 和 从 把 两 个 算术 量 或 字符 量 连接 起 的 式 子 称 为 关系 表达 式 。 关 系 运 算 即 “ 比 

关系 表达 式 结果 是 逻辑 常量 , 故 关系 表达 式 是 最 简单 的 人 逻辑 表达 式 。 一 般 格 式 为 : 

< 算术 量 1 > 关系 运算 符 < 算术 量 2> 

例如 ,5 二 3、A< 一 B、A 十 B>=C 一 Dechina' 人 一 'canada'、 MOD(CM,2). EQ. 0 等 都 是 合 

说 明 : 

(1) 关系 表达 式 中 ,算术 量 一 般 是 算术 型 的 稼 量 .变量 、 困 数 和 算术 表达 式 。 

(2) 关系 运算 符 两 侧 还 可 以 是 字符 型 量 。 如 果 是 字符 型 量 , 则 称 为 字符 型 关系 表达 式 。 

(3) 关系 表达 式 的 结果 是 逻辑 常量 , 即 . TRUE. 或 .FALSE. 。 

逻辑 值 在 内 存 中 用 一 1(. TRUE. ) 或 0(. FALSE. ) 来 进行 存储 ,因而 从 语法 而 言 , 逻 辑 
值 可 以 作为 关系 运算 符 的 算术 量 , 即 6 二 5 二 4 是 合法 的 关系 表达 式 。 但 不 主张 这 样 做 ,因为 
在 FORTRAN 中 ,6 二 5 二 4 的 结果 是 假 , 这 与 数学 上 的 结果 不 同 , 匈 造成 错误 ,这 一 点 要 特 
别 注 意 。 实 际 使 用 中 ,一 个 关系 表达 式 最 好 只 使 用 一 个 关系 运算 和 件 。 如 果 要 表示 上 述 
6 二 5 二 4 条件 ,应 用 逻辑 运算 符 连 接 ,5. 12 节 将 会 介绍 。 

(4) 关系 运算 符 两 边 的 算术 量 类 型 不 一 致 时 ,将 月 动 进 行 类 型 转换 ,转换 原则 是 低级 问 
高 级 转换 。 

(5) 谨慎 使 用 等 于 或 不 等 于 关系 运算 符 来 判断 实 型 数据 之 间 的 关系 。 由 于 实 型 数据 在 
存储 时 是 用 近似 值 表示 的 ,可 能 存在 误差 ,因此 在 判定 两 个 实 型 算术 量 是 否 相 等 时 ,通常 采 
用 差 值 比较 方式 。 如 A. EQ. B 可 以 改写 为 ABS(A 一 B) 二 1E 一 6 的 形式 , 当 A 与 B 的 差 值 
小 于 某 个 很 小 的 数 ( 通 常 取 1E 一 6) 时 ,可 以 认为 A 与 B 相等 。 

(6) 算术 运算 符 的 优先 级 别 高 于 关系 运算 符 。 

(7) 算术 量 是 字符 串 的 关系 表达 式 是 字符 关系 表达 式 。 字 符 串 比较 大 小 时 ,遵循 以 下 


原则 。 
单个 宇 符 进行 比较 时 ,比较 的 是 这 两 个 字符 的 ACSII 码 值 。 
例如 : 
'C>'B' 的 值 为 真 


了 >'e' 的 值 为 假 
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加 两 个 字符 串 比 较 时 ,比较 的 是 第 一 对 不 同 字 符 的 ACSII 人 码 值 。 
例如 ,'CHINA' 与 'CANADA' 比 较 大 小 时 , 先 比较 两 字符 串 的 第 一 个 字符 'C' 的 ASCII 
码 , 由 于 相同 ,接着 比较 第 二 个 字符 'H' 与 'A' 的 ASCII 码 ,'H' 的 ASCII 码 是 72, 而 'A' 的 
ASCII 码 是 65, 因 此 'CHINA'>'CANADA' 的 结果 为 真 。 

3 寿 两 个 字符 串 中 字符 个 数 不 相 等 时 , 则 将 较 短 的 字符 串 后 面 补 空格 后 青 比较 。 

例如 ,'the' 与 'there' 比 较 大 小 时 ,前 面 的 三 个 字符 完全 相同 ,无 法 比较 出 大 小 ,需要 在 第 

-个 字符 串 后 加 空格 ,然后 与 第 二 个 字符 的 'r' 进 行 比较 ,由 于 空格 的 ASCII 码 值 最 小 , 故 

'the'<'there' 的 值 为 在。 

【 例 5-1】 给 出 下 列 关 系 表 达 式 的 值 。 


关系 表达 式 运算 绪 末 
6>4 真 (T) 
3.0 + SORT(2.0)> 6 假 (F) 
.FALSE. = =0 真 (T) 
SQRT(3.0)/= 1.732 真 (了 T) 
THis'<'THIN' 假 (F) 

5.1.2 人 远 辑 运算 从 和 人 如 辑 表 达 式 
1. 逻辑 运算 符 


逻辑 运算 符 是 连接 两 个 逻辑 量 的 运算 符 , FORTRAN95 提供 了 6 种 逻辑 运算 符 , 如 
表 5. 2 所 示 。 


表 5.2 逻辑 运算 符 及 运算 规则 
逻辑 运算 举例 运算 规则 


交集 , 当 且 仅 当 A,B 均 为 真 时 ,人 逻辑 表达 式 A. AND. B 的 值 
A. AND.B 
en 或 BB 之 一 为 真 ,逻辑 表达 式 A. OR. B 的 值 就 为 真 , 否 


逻辑 值 A 取 反 ,A 为 真 时 ,逻辑 表达 式 NOT. A 的 值 为 假 , A 
. NOT. 逻辑 = DT A 
eb 逻辑 非 为 假 时 ,人 逻辑 表达 式 NOT. A 的 值 为 真 


. EQV. A、B 的 逻辑 值 相 同时 为 真 ,否则 为 假 


.NEQV. | 逻辑 不 等 A、B 的 逻辑 值 不 同时 为 真 ,否则 为 候 


.XOR.、 | 逻辑 异 或 A、B 的 逻辑 值 不 同时 为 真 ,否则 为 假 


注 : 表 5.2 假设 A、B 均 为 逻辑 变量 。 


为 方便 理解 , 表 5.3 列 举 了 当 A 和 B 的 逻辑 值 为 不 同 组 合 时 各 种 逻辑 运算 的 结果 。 
表 5.3 不 同 组 合 的 逻辑 运算 值 


逻辑 运 


NB [NorAT Wors] As [Monn | Meav | A veavs [A vos 
名 二 | 全 人生 | 页 | 二 | 下 假 
名 和 
假 丰 
假 假 
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逻辑 运算 和 从 的 优先 级 如 下 : 


.EQV. .NEQV. .XOR. 


2. 逻辑 表达 式 

逻辑 表达 式 是 用 逻辑 运算 符 对 逻辑 量 进 行 运 算 的 表达 式 ,一 般 格式 为 : 

< 逻辑 量 1 > 逻辑 运算 符 < 逻辑 量 2> 

FORTRAN95 提供 的 逻辑 量 可 以 是 : 逻辑 冰 量 .逻辑 变量 .逻辑 表达 式 和 关系 表达 式 
(关系 表达 式 的 结果 为 逻辑 值 ) 。 

例如 , TRUE. AND. TRUE. 、A. OR. B、2 > 1. AND. 3 < 4、NOT. (. TRUE.. AND.. 
FALSE. ) 等 都 是 合法 的 逻辑 表达 式 。 

运算 符 不 只 有 一 类 的 表达 式 为 混合 表达 式 。 混 合 表 达 式 的 运算 次 序 为 : 先 算术 ,上 青 关 
系 ,最 后 是 逻辑 。 逻 辑 的 顺序 是 . .NOT. 、. AND. 、. OR. 的 顺序 ，。 

【 例 S-2】〗】 设 A=4.2,B==5,C==3.5,D==1.0。 指 出 表达 式 的 运算 次 序 和 结果 。 

A>= 0.0 .AND. A+i+C>B+D .OR. .NOT. .TRUE. 

解 : 该 表达 式 是 混合 表达 式 , 按 以 下 次 序 进 行 计算 。 

(1) A 十 C 的 值 是 7.7 

(2) B 十 D 的 值 是 6.0 

(3) A 二 ==0 的 值 是 . TRUE. 

(4) A 十 C 二 BAD 即 7.7 二 6.0 的 值 是 .TRUE. 

(5) .NOT. .TRUE. 的 值 是 . FALSE. 

(6) A 二 = 0.0 .AND. AT 十 C>B+D 即 .TRUE. .AND. .TRUE. 的 值 是 . TRUE. 

(7) A 二 = 0.0 .AND. A+i+C>B+D .OR. .NOT. .TRUE. 即 . TRUE. .OR. 
FALSE. 的 值 , 是 . TRUE. 

上 述 过 程 可 以 表示 为 : 

A>=0.0.AND.A+C>B+D .OR..NOT. .TRUE. 
\ J ‘J \ J 


2T (D7.7 (6.0 @@ F 
CO 
© T 
/J/ 
9” T 
SS 
© T 


合理 使 用 迎 辑 表达 式 可 以 催化 判定 条 件 , 从 而 简化 语句 书 与 。 
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逻辑 IF 语句 是 用 来 实现 最 
IF( 表 达 式 e) 可 执行 语句 s 
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5.2 逻辑 IF 语句 


简单 的 选择 结构 的 语句 ,一 般 格 式 为 : 


逻辑 IF 语句 的 执行 过 程 是 ; 先 计算 表达 式 。 的 值 , 当 表达 式 。 的 值 为 真 时 ,执行 可 执行 
语句 s,s 执行 后 ,终止 该 逻辑 IF 语句 ,继续 执行 逆 愉 IF 语句 后 面 的 其 他 操作 ; 在 表达 式 e 


可 执行 语句 s 


图 5.1 逻辑 I 语句 执行 过 程 


做 . FALSE. 。 


的 值 为 假 , 则 终止 该 逻辑 IF 语句 ,不 执行 其 后 可 执行 语句 
s 而 直接 执行 逻辑 IF 语句 后 面 的 其 他 操作 。 图 5. 1 描述 
了 逻辑 IF 语句 的 执行 过 程 。 

使 用 逻辑 IF 语句 时 应 注意 以 下 几 点 。 

(1) 逻辑 IF 语句 中 的 可 执行 语句 s 只 能 是 一 条 语句 。 
它 可 以 是 赋值 语句 、 输 入 输出 语句 、STOP 语句 等 ,但 不 能 


是 END 语句 、 其 他 逻辑 IF 语句 、DO 语句 、 块 IF 语句 、 


ELSE IF 语句 、ELSE 语句 、END IE 语句 和 非 执 行 语句 。 
(2) 表达 式 。 的 结果 必须 是 一 个 逻辑 值 , 因 此 表达 式 e 
一 般 征 -个 关系 表达 式 或 逻辑 表达 式 , 但 也 可 以 是 一 个 整 
型 常量 。 编 译 系统 将 非 零 整 型 常量 当 作 . TRUE. ,将 零 当 


【 例 S-3〗 输入 两 个 整 型 数 到 A、B 变量 ,如果 A 二 B, 输 出 A 一 B 的 值 ,否则 结束 。 


程序 编写 如 下 : 


INTEGER A,B 
READ * ,A,B 

IF(A> B) PRINT* ,A—B 
END 


(1) 输入 A=5,B=3 时 ,程序 运 
(2) 输入 A=3,B=5 时 ,程序 运 


“F:\1lllli\Debug\l12. ee 


5 ,3 
2 


Press any key to continue 


果 如 图 5.2 所 示 。 


行 结 
行 结果 如 图 5. 3 所 示 。 


“F:\lllli\Debug\l12. ee 


3 .5 
Press any key to continue 


图 5.2 例 5-3 运行 结果 1 图 5.3 例 5-3 运行 结果 2 


由 上 面 的 计算 结果 可 以 看 到 , 当 A 二 B 为 假 时 , 则 不 执行 语句 “PRINT* ,A 一 B”，。 
【 例 5-4】 已 知 三 个 整数 A、B、C, 试 编写 程序 ,输出 它们 的 最 大 值 。 


流程 图 见 图 5.4。 
程序 编写 如 下 : 


INTEGER A, B,C, MAX 
PRINT * , "请 输入 三 个 整数 " 
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READ* ,A,B,C 
MAX=A 

IF(B> MAX) MAX = B 
IF(C> MAX) MAX=C 
PRINT 关 , MAX 

END 


程序 运行 结果 如 图 5.5 所 示 。 


策 人 A,B,C 


MAAX=A 


vx > MAX=B 


eww 一 MAX=C 


on “Ehbookls\ls\iDebouells. ere - 浊 
输出 MAX 请 办 入 三 个 吉 交 
Press any key to continue 
2 EY 


图 5.4 三 个 数 找 最 大 值 的 流程 图 图 5.5 例 5-4 运行 结果 


5.3 块 IF 结构 


逻辑 IF 请 名 中 的 可 执行 请 可 只 有 一 个 ,不 能 描述 复杂 的 操作 。 奋 要 描述 多 于 一 条 声名 
的 操作 ,可 用 块 IF 结构 实现 。 块 IF 结构 分 为 单 分 文 ` 双 分 文 和 多 分 文 三 种 情况 。 


5.3.1 单 分 支 块 IF 结构 


一 般 格 式 为 : 
IE( 表 达 式 e)THEN 
“ 工 HRN 块 、 
ENDIF 
块 IF 结构 的 入 口 是 IF( 表 达 式 e)THEN 语句 ,出 口 是 真 假 
ENDIF 语句 ,入口 .出 口 必 须 配 对 ,结构 才 完 整 。 


单 分 文 块 IF 结构 的 执行 过 程 : 如 果 表 达 式 。 的 值 为 真 ， 
则 执行 THEN 块 ,否则 什么 都 不 做 。THEN 块 中 可 以 包含 一 
条 或 多 条 可 执行 语句 。 


外 从 吉 先 择 结 构 的 济 程 图 史 图 5. )o 
单 分 文选 择 结 构 的 流程 图 见 图 5.6 5.6 单 分 支 选 择 结构 
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【 例 S-5】 用 单 分 文 块 IF 结构 实现 例 5-3。 
程序 编写 如 下 : 


INTEGER A,B 

READ * ,A,B 

IF(A> B) THEN 
PRINT* ,A—B 

ENDIF 

END 


程序 运行 结果 如 图 5.7 所 示 。 


“C:\Programn Files\Nicrosoft Yisual Studio... 


5 3 
2 


Press any key to continue, 


图 5.7 例 5-5 运行 结果 


【 例 S-6】 输入 学 生 的 姓名 和 计算 机 课 成 绩 , 如 果 成 绩 大 于 60 分 ,就 输出 学 生 的 姓名 、 
计算 机 课 成 缚 和 等 级 合格 。 
程序 编写 如 下 : 


REAL SCORE 

CHARACTER 关 8, NAME, 

PRINT x ，' 请 输入 学 生 姓名 和 计算 机 课 成 绩 ， 

READ * , NAME, SCORE 

IF(SCORE > 60.0)THEN 
PRINT * ，NAME, ' 的 计算 机 课 成 绩 是 ', SCORE 
PRINT x ，' 等 级 成 绩 : 合格 ' 

ENDIF 

END 


程序 运行 如 图 5.8 所 示 。 
如 有 条 输入 的 成 绩 小 于 60 分 , 则 程序 运行 结果 会 变 为 图 5. 9。 


F:\1l1li\Debug\l12. exe” 


NE 姓名 和 计算 机 课 砍 绩 


“F:\llll\Debug\l12. exe”™ 


四 al 78 .69800 Es 入 学 生 姓 名 和 计算 机 课 成 缚 


Press any key to continue 


图 5.8 例 5-6 运行 结果 1 图 5.9 例 5-6 运行 结果 2 


5.3.2 双 分 支 选 择 块 IF 结构 
- 般 格 式 如 下 : 


IF (表达 式 e)THEN 
<THEN 块 > 
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ELSE 
<ELSE 块 、 
ENDIF 


如 果 表 达 式 。 的 值 为 真 ,执行 THEN 块 , 否 则 执行 ELSE 块 。THEN 块 和 ELSE 块 都 
可 以 包含 一 条 或 多 条 可 执行 语句 。 

双 分 文选 择 结 构 的 流程 图 见 图 5. 10。 

【 例 5-7】 小 学 算术 减法 运算 ,输入 两 个 整 型 数 到 
A.B 变量 ,判断 条 件 A 二 B 是 否 成 立 。 如 果 成 立 则 执行 
A 一 B, 否 则 执行 B 一 A, 输 出 计算 结果 。 

程序 编写 如 下 : 

INTEGER A,B,C 

PRINT x ，' 请 输入 任意 两 个 整数 ' 

READ* , A,B 


IF(A> B)THEN 图 5.10 ” 双 分 文选 择 结构 
C=A-B 

ELSE 
C=B-A 

ENDIF 

PRINT* , "两 数 之 差 为 : ",C 

END 


程序 运行 结果 如 图 5. 11 所 示 。 
【 例 5-8】 输入 一 个 整数 ,判断 它 是 奇数 还 是 偶数 。 
INTEGER NUM 
PRINT * ，' 请 输入 任意 一 个 整数 ， 
READ * , NUM 
IF(MOD(NUM,2) = = 0)THEN 
PRINT x* ，NUM, "是 一 个 偶数 " 
ELSE 
PRINT x ，NUM, "是 一 个 奇数 " 
ENDIF 
END 


程序 运行 结果 如 图 5. 12 所 示 。 


“EE: . ookls\l=s\Deboar\ls. ere”™ 


_ 症 请 任意 网 小 整数 


“ 讽 数 之 差 为 2 18 是 一 个 偶数 
an | Press any key to continue 


图 5.11 例 5-7 运行 结果 图 5.12 例 5-8 运行 结果 


5.3.3 多 分 支 块 IF 结构 
当 需 要 判断 两 个 或 两 个 以 上 的 条 件 , 即 “多 重 判断 ”时 ,需要 通过 多 分 支 选 择 结构 来 


16 本 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


一 般 格式 如 下 : 


IF( 表 达 式 el )THEN 
<THEN 块 1> 

ELSE IF( 表 达 式 e2)THEN 
<THEN 块 2> 

ELSE IF( 表 达 式 e3)THEN 
<THEN 块 3> 


ELSE IF( 表 达 式 en)THEN 
<THEN 块 n> 

ELSE 
<ELSE 块 > 

ENDIF 


多 分 文选 择 块 IF 结构 的 执行 过 程 是 : 先 计算 表达 式 el 的 值 , 当 表 达 式 el 的 值 为 真 时 ， 
执行 THEN 块 1 ,执行 完 后 跳 到 ENDIF 语句 ,结束 块 IE 结构 ; 当 表 达 式 el 的 值 为 假 时 , 计 
算 表 达 式 e2 的 值 , 当 其 值 为 真 时 ,执行 THEN 块 2, 执 行 完 后 跳 到 ENDIF 语句 ,结束 块 IF 
结构 ; 否则 接着 判断 表达 式 e3 的 真 假 。 如 此 不 断 重复 ,直到 最 后 一 个 条 件 为 真 时 执行 最 后 

-个 THEN 块 ,否则 执行 唯一 的 一 个 ELSE 块 并 结束 块 IF 结构 。 

【 例 5-9】 某 电 视 台 晚上 9 点 的 节目 安排 如 下 : 

星期 二 ,五 : 电视剧 

星期 三 ,六 ; 文艺 综艺 节目 

编程 实现 : 当 输 入 星期 几时 ,可 查询 输出 当天 晚上 的 节目 。 

分 析 : 为 简单 起 见 , 用 整 型 数 1 一 7 代表 星期 一 到 星期 日 。 

程序 编写 如 下 : 

INTEGER WEEK 

PRINT *, "请 输入 查询 数字 1 7, 对 应 查询 每 日 节目 :" 

READ * ,WEEK 

IF(WEEK= =1.0R.WEEK= = 4) THEN 

PRINT * ," 今 日 节目 为 : 卡通 片 ." 

ELSE IF(WEEK = =2.0R.WEEK= = 5) THEN 

PRINT x*, "今日 节目 为 : 电视 剧 ." 
ELSE IF(WEEK = = 3.0OR.WEEK= = 6) THEN 
PRINT x ," 今 日 节目 为 : 文艺 综艺 节目 ." 
ELSE IF(WEEK = = 7) THEN 
PRINT x* ," 今 日 节目 为 : 周 日 影院 ." 
ELSE 
PRINT * , "输入 查询 数字 有 误 !" 
ENDIF 
END 


程序 运行 结果 如 图 5. 13 所 示 ，。 
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Cs “Eibookls\ls\iDebue\ls. exe” 
请 输入 查询 数字 1-?， 对 应 查询 每 日 节目 ， 


寺 
= 


Press any key to continue 


图 5.13 例 5-9 运行 结果 


使 用 块 IF 结构 的 说 明 如 下 。 

(1) 双 分 文选 择 块 IF 结构 是 块 IF 结构 的 基本 结构 。 一 个 基本 块 正 结构 由 下 语句 \THEN 
块 .ELSE 语句 和 END IF 语句 组 成 。IF 语句 、ELSE 语句 和 END IF 语句 部 要 单独 占 一 行 。 

(2) 单 分 文 块 IF 结构 缺少 THEN 块 或 ELSE 语句 .ELSE 块 ; 多 分 文 块 IF 结构 则 比 
基本 块 IF 结构 多 ELSE IF…THEN 语句 。 不 管 是 哪 一 种 块 IF 结构 ,IF 语句 和 END IE 请 
句 必 不 可 少 , 如 果 有 ELSE 语句 , 则 ELSE 语句 和 ELSE 块 都 只 能 有 一 个 。 

(3) IF 请 句 行 代表 块 IF 结构 的 开始 ,END IF 语句 表 示 块 IF 结构 的 结束 。 块 IF 结构 
的 THEN 块 和 ELSE 块 一 般 由 多 个 可 执行 便 句 组 成 ,它们 也 可 以 是 一 个 块 IF 结构 ,这 束 是 
5.4 市 要 闻 述 的 块 IE 的 和 散 套 。 


5.4 块 IF 结构 的 敬 套 


一 个 块 IF 结构 中 又 完整 地 包含 男 一 个 或 多 个 块 下 结构 , 称 为 块 IF 的 艇 套 。 
使 用 贬 套 的 块 IF 结构 应 注意 以 下 几 点 。 
(1) 在 舱 套 的 块 IF 结构 中 ,内 层 的 块 IF 结构 不 能 和 外 层 的 块 IF 结构 相互 交叉 ,只 能 
为 了 使 程序 清晰 ,一般 在 书写 时 应 将 每 一 个 内 磐 的 块 IF 结构 同 右 缩 进 几 格 ,同一 层 块 
IF 结构 的 IF 语句 .ELSE 语句 和 END IF 语句 列 对 齐 。 
(2) 流程 不 允许 从 块 IF 结构 外 控制 转移 到 块 IF 结构 内 的 任何 位 置 。 
一 般 格 式 为 : 


IF(..) THEN 
IF(..) THEN 
IF(..) THEN 


ELSE IF(..) THEN 
上 LoP 
ENDIF 

.ENDIF 


ELSE 


ENDIF 
“ENDIF 
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【 例 5-10】 输入 学 生成 绩 , 按 下 列 条 件 判 断 成 绩 等 级 : 80 一 100 分 为 “A”,70 一 79 分 为 
“B”,60 一 69 分 为 “C”, 小 于 60 从 为 “D”。 
程序 编写 如 下 : 


READ < , GRADE 
IF(GRADE > = 60) THEN 
IF(GRADE > = 70) THEN 
IF(GRADE > = 80) THEN 
PRINT* ,"A" 
PRINT* ,"B" 
ENDIF 
PRINT 关 ,"C" 
ENDIF 
ELSE 
PRINT x ,"D" 
ENDIF 
END 


程序 运行 结果 如 图 5. 14 所 示 。 
“CnProeran Files\Kicrosoft Visual | ne -Iolxl 


时 加 
和 


Press any kevy to cont1inue 


图 5.14 例 5-10 运行 结果 


用 多 层 块 IF 结构 藤 套 编写 程序 比较 复杂 ,可 以 通过 改变 判断 条 件 、 使 用 多 分 支 选 择 结 
构 、 改 变 算法 等 尽 可 能 减少 使 用 块 IF 结构 瞬 套 的 层次 。 


5.5 块 CASE 结构 


写 程序 时 有 时 会 使 用 “多 重 判断 ”, 前 面 已 经 学 习 使 用 块 IF 结构 来 完成 “多 重 判断 ”的 方 
法 ,现在 来 学 习 用 男 一 个 在 语法 上 更 简洁 的 方法 一 一 块 CASE 结构 来 做 这 个 工作 。 
块 CASE 结构 与 多 分 文选 择 块 IF 结构 非常 类 似 , 它 可 以 根据 表达 式 的 计算 结果 ,从 多 
个 分 文中 选择 一 个 分 文 执行 。 
块 CASE 结构 的 一 般 格 式 为 : 
SELECT CASE( 表达 式 e) 
CASE( 数 值 1) 
块 1 
CASE( 数 值 2) 
块 2 
CRASE( 数 值 n) 
块 n 
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块 n+1 
END SELECT 


块 CASE 结构 的 执行 过 程 : 首先 计算 SELECT CASE 语句 中 表达 式 。 的 值 m ,接着 依 
次 从 各 数值 中 寻找 ,如 果 m 属于 数值 i (nn 三 i 三 1) , 则 执行 块 i, 并 结束 块 CASE 结构 ; 各 在 
所 有 数值 内 都 找 不 到 与 m 相等 的 常量 值 , 则 执行 CASE DEFAULT 下 面 的 块 n 十 1 ,然后 结 
束 块 CASE 结构 。 
【 例 S-11】 用 SELECT CASE 结构 实现 例 5-9 。 
程序 编写 如 下 : 
INTEGER WEEK 
PRINT *, "请 输入 查询 数字 1 -7, 对 应 查询 每 日 节目 :" 
READ * ,WEEK 
SELECT CASE( WEEK ) 
CASE (1,4) 
PRINT x*, "今日 节目 为 : 卡通 片 ." 
CASE (2,5) 
PRINT *, "今日 节目 为 : 电视 剧 ." 
CASE (3,6) 
PRINT x ," 今 日 节目 为 : 文艺 综艺 节目 ." 
CASE (7) 
PRINT x ," 今 日 节目 为 : 周 日 影院 ." 
CASE DEFAULT 
PRINT * ," 输 入 查询 数字 有 误 !" 
END SELECT 
END 


程序 运行 结果 如 图 5. 15 所 示 。 


"C:\Programn Files\Nicrosoft Yisual Studio\HN... 
请 辆 入 查 词 数 子 1-?， 对 应 查 词 每 日 证 目 ， 


3 


Press any kevy to continue 


图 5.15 例 5-11 运行 结果 


使 用 块 CASE 结构 来 取代 某 些 多 分 支 块 IF 结构 实现 多 重 判 断 , 会 让 程序 看 起 来 更 简 
单 ,但 是 使 用 CASE 结构 有 限制 ,并 不 是 所 有 的 多 分 文选 择 结 构 都 能 用 其 来 取代 。 

块 CASE 结构 说 明 如 下 。 

(1) 块 CASE 结构 从 SELECT CASE 语句 开始 ,到 END SELECT 语句 结束 。 

(2) SELECT CASE 语句 中 的 表达 式 e 只 能 是 整 型 .字符 型 或 逻辑 型 。 

(3) 每 个 CASE 语句 中 所 使 用 的 数值 必须 是 固定 的 稼 量 ,类 型 要 与 表达 式 e 的 类 型 一 

(4) 数值 可 以 是 一 个 常量 值 ,如 5; 可 以 是 用 逗号 “, ”间隔 的 几 个 常量 值 ,如 1,5,8( 共 
3 个 值 ); 也 可 以 是 采用 冒号 “: ”分 隔 表示 的 常量 值 的 区 间 , 如 1: 5( 表 示 1、2、3、4、5 共 
5 个 值 )。 
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(5) 各 CASE 语句 中 所 使 用 的 数值 不 能 有 相同 的 部 分 , 即 块 CASE 结构 中 表达 式 。 的 
值 只 能 与 一 个 CASE 语句 中 的 某 个 常量 值 相 等 。 

(6) CASE DEFAULT 以 及 其 后 的 块 n 十 1 可 有 可 无 。 如 果 没 有 , 则 在 前 面 所 有 CASE 
中 的 数值 都 与 表达 式 e 的 值 不 相等 的 情况 下 ,不 执行 任何 操作 。 

【 例 5-12】 输入 两 个 算术 量 和 算术 运算 符 , 输 出 运算 结果 。 

程序 编写 如 下 : 


INTEGER A,B,C 
CHARACTER * 2 OPER 
PRINT * ,' 请 输入 两 个 整数 和 一 个 算术 运算 符 ' 
READ * , A, B, OPER 
SELECT CASE( OPER) 
CASE('+ ') 
C=A+B 
CASE('— ') 
C=A-B 
CASE('* ') 
C=Ax*B 
CASE( "/ ") 
C= A/B 
CASE(' xx* ') 
C=AxxB 
CASE DEFAULT 
WRITE( x , '(" 输 入 运算 符 不 正确 ")') 
END SELECT 
PRINT * ,A, OPER,B,'= ',C 
END 


程序 运行 结果 如 图 5. 16 所 示 。 


cq “FE:\Debue\Text6. exze”™ 


输入 两 个 幕 数 和 一 个 算术 运 算 符 


下 4 


any key to continue 


图 5.16 例 5-12 运行 结果 
5.6 程序 举例 


【 例 S-13】 给 定 一 个 学 生成 绩 S$ ,评判 该 学 生 等 级 ,输出 结果 。 假 定 成 绩 等 级 划分 
如 下 : 

优 : 95 迄 S 过 100; 良 : 80 过 S 一 95; 中 : 70 过 S 一 80; 及 格 : 60 过 SS 一 70; 不 及 格 : S 一 60。 

分 析 : 为 简单 起 见 , 假 定 学 生成 绩 为 整数 ,用 整 型 变量 来 处 理 。 解 决 该 问题 的 算法 见 
图 5.17。 同 一 个 问题 可 以 用 多 种 选择 结构 来 实现 。 这 里 分 别 采 用 逻辑 IF 语句 、 块 IF 结 
构 、 块 IF 结构 般 套 和 块 CASE 结构 编写 程序 ,并 对 它们 进行 比较 。 


答 出 "不 及 格 * 
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图 5.17 评定 学 生成 绩 等 级 的 流程 图 


程序 编写 一 (采用 逻辑 IF 语句 实现 ): 


INTEGER 5 

PRINTx , "输入 学 生成 绩 :" 

READ *,S 

IF (S<60) PRINT x , "该 学 生成 绩 为 : 不 及 格 ." 


IF (S>=60 .AND. S<70) PRINT *, "该 学 生成 绩 为 : 及 格 ." 


IF (S>=70 .AND. S<80) PRINT x* , "该 学 生成 绩 为 : 
IF (S>= 80 .AND. S<95) PRINT x* , "该 学 生成 绩 为 : 


IE (S>= 95) PRINT x ,' 该 学 生成 绩 为 : 优 .' 


END 

程序 编写 二 (采用 多 分 文 块 IF 结构 实现 ): 
INTEGER S 

PRINT* , "输入 学 生成 绩 :" 

READ x ，S 


IE (S<60) THEN 

PRINT *, "该 学 生成 绩 为 : 不 及 格 ." 
ELSE IF (S<70) THEN 

PRINT x "该 学 生成 绩 为 : 及 格 ." 
ELSE IF (S<80) THEN 

PRINT x*, "该 学 生成 绩 为 : 中 ." 
ELSE IF (S<95) THEN 

PRINT *, "该 学 生成 绩 为 : 良 ." 


ELSE 
PRINT *，,' 该 学 生成 绩 为 : 优 .， 
ENDIF 
END 
程序 编写 三 (采用 块 IF 结构 的 舱 侄 实现): 
INTEGER S 
PRINT* ," 输 入 学 生成 绩 :" 
READ 关 ，S 


IE (S<60) THEN 


中 ." 
良 ." 


给 出 “ 优 ” 


81 
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PRINT x , "该 学 生成 绩 为 : 不 及 格 ." 
ELSE 
IE (S<70) THEN 
PRINT x* "该 学 生成 绩 为 : 及 格 ." 
ELSE 
IF (S<80) THEN 
PRINT *, "该 学 生成 绩 为 : 中 ." 
ELSE, 
IF (S<95) THEN 
PRINT x*, "该 学 生成 绩 为 : 良 ." 


ELSE 
PRINT #* ，" 该 学 生成 绩 为 : 优 .' 
END IF 
END IF 
END IF 

END IF 
END 
程序 编写 四 (采用 块 CASE 结构 来 实现 ): 
INTEGER S 
PRINT* ," 输 入 学 生成 绩 :" 
READ ¥* ,SS 
SELECT CASE(S) 
CASE(0:59) 

PRINT x*, "该 学 生成 绩 为 : 不 及 格 ." 
CASE(60:69) 

PRINT x*," 该 学 生成 绩 为 : 及 格 ." 
CASE(70:79) 

PRINT *, "该 学 生成 绩 为 : 中 ." 
CASE(80:94) 

PRINT x* ," 该 学 生成 绩 为 : 良 ." 
CASE(95:100) 

PRINT x*,' 该 学 生成 绩 为 : 优 .' 
END SELECT 
END 


以 上 四 段 程序 中 ,程序 一 采用 了 并 列 的 5 个 逻辑 IF 语句 ,程序 短小 简单 ,可 读 性 高 , 缺 
点 是 由 于 需要 执行 每 个 逻辑 表达 式 ,所 以 运行 效率 低 。 
程序 三 采用 块 IF 结构 磐 套 ,运行 时 只 需要 计算 关系 表达 式 的 值 ,运行 效率 较 高 ,但 程序 
程序 二 和 程序 四 运行 效率 高 ,日 结构 层次 明晰 、 人 简洁 ,是 程序 设计 的 首选 。 
【 例 5-14】 计算 下 面 分 段 图 数 的 值 , 编 与 程序 实现 。 
ezviX 十 cosX 和 一 0 (1) 
ee = 0 (2) 


/TT 和 盖 0 (3) 
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分 析 : 对 于 分 段 图 数 的 计算 ,首先 要 判断 其 目 变 量 的 取 值 范围 ,根据 目 变 量 不 同 的 取 值 
范围 来 确定 执行 哪 一 个 计算 公式 ,计算 Y 的 值 。 该 类 问题 求解 算法 比较 简单 ,使 用 选择 结 
构 实 现 。 

程序 编写 如 下 : 


REAL X,Y 
PRINT *，' 请 输入 X 的 值 : ， 
READ x* ,X 
IF(X<0) THEN 
Y= EXP(2 x* SORT(ABS(X))) + COS(X) 
ELSE IF(X == 0) THEN 
Y=2 
ELSE 
Y= X/SORT(1 + X x** 2) 
END IF 
PRINT x*x ,'Y=',Y 
END 


程序 运行 结果 如 图 5. 18 所 示 。 


“CN\Proeran Files\icrosoft VYisual studio\.. -oO|x 
请 辆 八 # 的 慎 

-1 

= TT-.J29458 


eh 志和 避 林 导 册 二 凋 肆 帮 二 二 和 由 丰 


图 5.18 例 5-14 运行 结果 


【 例 5-15】 输入 三 角形 的 三 条 边 长 A、B、C, 先 判断 是 否 构 成 三 角形 ,人 若 能 构成 三 角形 ， 
则 计算 三 角形 的 三 个 角 a、B、Y。 编 写 程序 实现 。 

分 析 : 定义 三 个 实 型 变量 ,用 来 存放 三 角形 的 三 条 边 , 按 照 三 角形 的 组 成 规则 “任意 两 
边 之 和 大 于 第 三 边 ” 建 立 逻 辑 表 达 式 : A 十 B>C. AND. A 十 C>B. AND. B 二 C 二 A。 采 用 反 
余弦 图 数 计 算 角 度 值 。 


程序 编写 如 下 : 


REAL : : A,B,C,ALFA,BETA,GAMA,X,Y,Z 
PRINT * ，' 请 输入 三 角形 三 条 边 的 值 :' 
RERMD < ,A,B,C 
IF(A+ B>C.AND.B+C>A.AND.C+ A> B)THEN 
X= (Bx¥x 2+Cxx2— Axx2)/(2*Bx*C) 
Y= (Ax¥x2+Cxx2— Bxx2)/(2*AxC) 
Z= (Axx 2+Bxx2— Cxx2)/(2x*xAx*xB) 
ALFA = ACOSD(X) 
BETA = ACOSD(Y) 
GAMA = ACOSD( 2Z) 
PRINTx ,' 角 A=',ALFA 
PRINT*x* , ' 角 B= ',BETA 
PRINTx , ' 和 角 C=',GAMA 
ELSE 
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PRINT x*, "不 构成 三 角形 !" 
END IF 
END 


程序 运行 结果 如 图 5. 19 所 示 。 
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图 5.19 例 5-15 运行 结果 


【 例 S-16】 输入 任意 三 个 实数 A、B.C, 按 从 小 到 大 的 顺序 输出 。 

分 析 : 这 是 一 个 简单 的 排序 问题 ， 末 用 交换 异 法 进行 编程 。 es A>>B, 则 A、B 发 生 互 
换 , 若 A>C, 则 A:C 发 生 互 换 , 这 样 A 就 是 A、B.C 中 的 最 小 者 ; 若 B>>C, 则 BC 发 生 互 
换 , 这 样 B 就 是 B.C 中 的 最 小 者 。 按 A、B.、C 顺序 打印 即 可 得 到 从 小 到 大 的 顺序 输出 。 

程序 编写 如 下 : 


REAL A, B,C,T 
PRINT* ，' 输入 任意 三 个 实数 给 A,B,C' 
READ¥ ,A,B,C 
IF(A> B)THEN 
T=A 
A=B 
B=T 
ENDIF 
IF(A> C)THEN 
T=A 
A=C 
GG 三 了 工 
ENDIF 
IF(B> C)THEN 
T=B 


PRINT* ，' 输 入 的 三 个 实数 按 从 小 到 大 是 : ',A,B,C 
END 


程序 运行 结果 如 图 5. 20 所 示 。 


“C:\Program Files\Nicrosoft Yisual Studio\RyProjects\l\Debue\.. -oO|x 
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1. 阅读 下 列 程序 ,给 出 运行 结集 。 
(1) READ x ,NN 
X=1.0 
IF(N>=0) X=2xX 
IF(N>=5) X=2xX+1.0 
IF(N>15) X=3xX—-1.0 
PRINT x*x ,XX 
END 
如 果 从 键盘 输入 15 ,输出 程序 运行 结果 。 
(2) READ x ,A 
IF(A. GE. 3.5)THEN 
Y= 3.0 
ELSE 
IF(A. GE. 4.5)THEN 
Y= 4.5 
ELSE 
Y=4.0 
ENDIF 
ENDIF 
PRINTx , Y 
END 
如 果 从 键盘 输入 5.0, 输 出 程序 运行 结果 。 
(3) LOGICAL P,Q 
READ * , X,Y 
P= (xX.GE.0.0).AND.(Y.GE.0.0) 
OQ=X+Y>7.5.AND.(Y>=0.0) 
P= .FALSE. 
IF(. NOT. P. AND. 0)THEN 
2=0.0 
ELSE IF(. NOT. OQ) THEN 
a= 0.0 
ELSE IF(P) THEN 
2=2.0 
ELSE 
= 3.0 
ENDIF 
PRINTx , 2 
END 
如 果 从 键盘 输入 3.5,4.5, 输 出 程序 运行 结果 。 
(4) CHARACTER A,C 
READ 关 ,A 
SELECT CASE(A) 
CASE( 'a': 'z') 
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C= CHAR(ICHAR(A) - 32) 
CASE( 'A': 'Z') 
C= CHAR(ICHAR(A) + 32) 
CASE DEFAULT 
C= 
END SELECT 
PRINT * :B,C 
END 
如 果 从 键盘 输入 下 ,输出 程序 运行 结果 . 
2. 填空 题 
(1) 下 面 程 序 判 断 任 意 两 个 整 效 能 否 同 时 被 5 整除 ,各 能 , 则 输出 "YES” ,否则 输出 
“NO”。 请 填空 
INTEGER M,N 
READ( 关 ， 关 ) MN 
IE RE ) THEN 
PRINT * ，'YES' 
ELSE 
PRINT * ，'NO， 


END 


(2) 下 面 程序 判断 一 个 三 位 整 型 数 是 否 满 足 其 各 位 数字 之 和 等 于 10。 如 果 满 足 条 件 ， 
则 输出 “YES”, 和 否则 不 进行 任何 操作 。 
INTEGER M, I,J,K 
READ* ,M 
I=M/100 
J= 
及 三 
IF( ) PRINT * , 'YES' 
END 
3. 计算 职工 工资 。 工 人 每 周 工作 40h, 超 过 40h 的 部 分 应 该 按 加 班 工资 计算 (为 正和 
工资 的 2 信 )。 输 入 工作 时 间 和 单位 报酬 ,计算 出 该 职工 应 得 的 工资 并 输出 (假定 基本 工资 
为 10 元 /h) 。 
3 无 一 1， 0 过 五 之 1] 
27 十 5， 1 所 工 一 2 
全 re 
1 其 他 
编写 程序 ,输入 xz, 输出 y 值 。 
5. 从 键盘 输入 三 个 整数 ,输出 其 中 最 大 的 数 。 
6. 假定 个 人 所 得 税 有 三 个 等 级 , 且 随 年 龄 不 同 有 不 同人 算 法 。 
第 1 类 : 不满 50 多 
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月 收入 2000 元 以 下 的 税率 为 5%,2000 一 8000 元 的 税率 为 10%,8000 元 以 上 的 税率 
为 15%。 
笛 广 闫 50 风 以 上 
月 收入 在 2000 元 以 下 的 税率 为 3% ,2000 一 8000 元 的 税率 为 7%,8000 元 以 上 的 税率 
为 10%。 
编写 程序 ,输入 某 人 的 年 龄 和 年 收入 ,计算 他 (她 ) 一 年 所 应 缴纳 的 税金 。 


循环 结构 程序 攻 于 


教学 目标 : 

。 理解 循环 的 概念 ; 

。 掌握 DO 循环 结构 的 用 法 ; 

。 掌握 DO WHILE 循环 结构 的 用 法 ; 

。 理解 循环 控制 语句 EXIT 和 CYCLE 的 用 法 ; 
。 掌握 循环 谋 套 的 用 法 ; 

。 掌握 循环 结构 程序 设计 方法 。 


重复 执行 一 组 指令 (或 一 个 程序 段 ) 称 为 循环 操作 。 程 序 中 存在 两 类 循环 : 无 条 件 的 循 
环 和 有 条 件 的 循环 。 前 者 是 无 休止 地 执行 一 个 程序 段 , 后 者 是 在 满足 一 定 条 件 时 才 执 行 的 

在 实际 应 用 (无 论 科 学 计算 或 事务 管理 ) 中 经 稼 会 遇 到 循环 类 型 的 问题 。 例 如 ,对 全 班 
学 生 求 平均 成 绩 、 求 累加 和 、 求 阶乘 等 都 需要 用 到 循环 处 理 。 因 此 循环 是 程序 设计 的 基本 技 
巧 之 一 ,必须 熟练 掌握 。 善 用 循环 可 以 使 程序 精简 并 提高 编程 效率 。 

章 主 要 介绍 用 DO 语句 和 DO WHILE 语句 实现 循环 结构 。 


6.1 用 DO 语句 实现 循环 结构 


需要 执行 的 重复 次 数 (循环 次 数 ) 已 知 时 ,用 DO 语句 实现 循环 结构 比较 方便 。 用 DO 
语句 实现 的 循环 结构 称 为 DO 循环 结构 ,简称 DO 循环 。 

引 例 : 连续 打印 10 次 HELLO。 用 顺序 结构 编写 程序 ,需要 连续 用 10 个 PRINT 语句 
来 显示 10 行 HELLO。 很 显然 ,本 例 需 要 重复 执行 PRINT 语句 10 次 , 即 循环 次 数 已 知 为 
10 次 ,使 用 循环 结构 就 会 非常 简练 。 故 改 用 DO 循环 实现 上 述 要 求 。 

【 例 6-1】 显示 10 行 “HELLO!”。 

程序 如 下 : 

DOI=1,10,1 

PRINT x , "HELLO!",I, "次 " 
ENDDOQ 
END 


人 吉 果 如 图 6. 1 所 示 。 


这 类 题目 是 事先 已 知 重复 次 数 ( 循 环 次 数 ) 的 问题 。 对 于 这 类 问题 ,采用 DO 循环 结构 
可 以 很 容易 地 实现 PRINT 语句 的 10 次 甚至 是 100 次 的 重复 操作 。 
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图 6.1 例 6-1 运行 结果 
下 面 详细 讨论 用 DO 语句 实现 循环 结构 。 
6.1.1 循环 语句 (DO 语句 ) 和 循环 次 数 的 计算 


DO 语句 实现 的 循环 称 为 DO 循环 。DO 循环 由 一 个 DO 语句 .循环 体 和 ENDDO 请 


DOI=1,5,1 (DO 语句 ) 
J=IXI (循环 体 ) 

ENDDO (循环 结束 语句 ) 

说 明 : 


(1) DO 循环 结构 由 三 部 分 组 成 : DO 语句 、 循 环 体 和 ENDDO 语句 。 

(2) DO 语句 是 DO 循环 的 起 始 声名 ,给 出 控制 循环 执行 的 循环 变量 的 初 值 、 终 值 和 
步 长 。 

(3) 循环 体 是 DO 循环 的 主体 ,是 在 循环 过 程 中 被 重复 执行 的 语句 组 。 

(4) ENDDO 语句 是 DO 循环 结构 的 终端 语句 ,表明 本 次 的 循环 体 执行 到 此 结束 。 之 后 
循环 变量 增加 步 长 ,循环 次 数 减 1 , 耕 循 环 变量 仍 在 初 值 到 终 值 的 范围 内 (或 循环 次 数 仍 大 
于 零 ) , 则 继续 执行 循环 体 , 直 到 循环 变量 超出 [ 初 值 , 终 值 ] 的 范围 (或 循环 次 数 小 于 等 于 零 、 
时 结束 整个 DO 循环 ,接着 执行 ENDDO 语句 下 面 的 第 一 个 可 执行 语句 。 

以 下 都 是 合法 的 DO 循环 : 

(1) pOI=1,10,2 


S=5+I 
ENDDO 


(2) DON=1,5 
F=FxN 
ENDDO 
(3) R=2.5;B=3.0 
DOT=1,A+B,2.0 
PRINT* ,T 
ENDDO 
DO 语句 的 一 般 形 式 为 : 
D0 循环 变量 = 表达 式 1, 表达 式 2[ ,表达 式 3] 


或 写成 ，; 
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DOV = el, e2[,e3] 


上 式 中 Ve 分别 是 Variable 和 expression 的 自学 母 ,代表 “变量 ”和 “表达 式 ”。 其 中 V 表示 
循环 控制 变量 ,简称 循环 变量 ; el 表示 循环 变量 的 初 值 ; e2 表示 循环 变量 的 终 值 ,e3 表示 
循环 变量 的 增 量 ( 步 长 )。 下 面 的 DO 语句 是 合法 的 : 

DO I=1,10,2 

DO N=1,5 

DO L=1.2,5.6,2.3 

X=2.5#2,101/2,1;0.8 

DO T=1.5,5.4,0.2 


说 明 : 

(1) 在 上 述 DO 语句 的 一 般 形式 中 ,表达 式 3( 即 e3) 为 可 选项 。 当 省 略 e3 时 ,意味 着 
e3 一 1, 即 循环 变量 的 增 量 ( 步 长 值 ) 为 1, 例 如 ,DO I=1,10,1 和 DO I 二 1,10 的 含义 相同 。 

(2) 循环 变量 的 初 值 、 终 信和 步 长 可 以 是 第 量 .变量 或 表达 式 。 如 果 是 变量 , 则 该 变量 
应 预先 被 赋值 ; 如 果 是 表达 式 , 则 先 计 算出 表达 式 的 值 。 例 如 : 

DO X=2.5*2,20.0/2.0,0.8 
相当 于 


DO X=5.0,10.0,0.8 


(3) 循环 次 数 可 以 由 循环 初 值 , 终 值 和 步 长 计算 出 来 , 即 r= 二 INT((e2 一 el 十 e3)/e3)。 
例如 : 


DOI=1,10,1 


的 循环 次 数 为 r==INT((e2 一 el 十 e3)/e3)== INT((10 一 1 十 1)/1)==10 次 。 
又 如 : 


DOI=1,10,2 


的 循环 次 数 为 r= 二 INT((e2 一 el 十 e3)/e3) 二 INT((10 一 1 十 2)/2)== INT(5.5) 一 5 次 。 

可 以 从 图 6. 2 中 直观 形象 地 看 到 : 当 循 环 变 量 I 在 1~10 范围 内 时 就 执行 循环 ; 如 果 
I 二 10, 则 不 再 执行 循环 。 

DOI=1,10,2 

PRINT* ,I 

ENDDO 


当 循 环 控制 变量 工 在 由 初 值 到 终 值 的 范围 内 时 (可 用 数学 表达 式 表 示 为 IELel,e2])， 
即 I 二 1,3,5,7,9 时 ,应 执行 循环 体 , 每 次 分 别 打印 出 工 的 值 1、3、5、7、9( 每 次 打印 一 行 , 共 打 
印 5 行 )。 当 I 变化 到 11 时 (可 表示 为 1KfLel,e2]), 不 再 执行 循环 体 , 因 此 不 会 打印 出 
“11”。 显 然 , 循 环 了 5 次 。 同 理 , 例 6-1 中 ,在 每 次 循环 中 除了 显示 HELLO 外 ,还 显示 了 循 
环 变 量 I 的 值 。 可 以 看 出 ,循环 变量 每 经 过 一 次 循环 ,数值 束 会 过 加 上 步 长 1。 执 行 到 第 10 
次 循环 时 ,I 二 10, 进 行 第 11 次 循环 前 ,I 累加 变 成 11 ,这 个 时 候 I[10 的 条 件 不 成 立 ,循环 也 
就 不 再 执行 下 去 。 
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(循环 变量 D) 


图 6.2 循环 变量 I 的 取 值 


(4) 循环 变量 的 步 长 e3 不 能 等 于 0。 因 为 在 求 循 环 次 数 7 的 公式 中 ,e3 为 分 母 , 当 e3 三 
0 时 ,r 会 趋同 无 穷 大 。 和 下 观 地 说 ,循环 变量 本 应 从 其 初 值 el 为 起 点 ,以 每 次 为 e3 的 值 为 增 
量 而 进行 变化 ,直到 超过 终 值 e2 为 止 。 如 果 e3 的 值 为 零 , 则 循环 变量 的 值 永远 不 会 超过 终 
值 e2, 因 此 会 无 终止 地 执行 循环 体 , 形 成 死 循环 。 

(5) el、e2、e3 的 值 可 以 为 正 , 也 可 以 为 全 ,el、e2 的 值 可 以 为 堆 。 例 如 : 


UU LE 一 4 一 3 一人 


的 循环 次 数 为 r= 二 INT((e2 一 el 十 e3)/e3)== INT(C(C 一 3) 一 (一 1) 十 (一 1)7(C 一 1)) 王 3。 即 
当 工 的 值 为 一 1、 一 2、 一 3 时 ,循环 正常 执 行 , 当 工 的 值 变 为 一 4 时 ,不 再 执行 循环 。 

(6) 由 此 可 以 知道 ,脱离 循环 ( 即 不 青 继续 执行 循环 ) 的 条 件 是 : 循环 变量 沿 变 化 的 方 
回 超 过 终 值 。 

如 果 步 长 (e3) 的 值 为 正 , 则 “超过 ”意味 着 大于”, 如果 步 长 的 值 为 负 , 则 “超过 ”意味 看 
“小 于 ”, 见 图 6. 3。 图 6.3(a) 表 示 初 值 为 0、 终 值 为 10、 步 长 为 正 时 , 则 循环 变量 I 从 0 开始 
逐渐 增加 ,一 直到 工大 于 (不 是 等 于 )10 时 ,循环 才 终 止 。 图 6. 3(b) 表 示 初 值 为 10、 终 什 为 
0 步 长 为 人 负 时 ,循环 变量 I 从 10 开始 逐渐 减 小 ,一 直到 工 小 于 (不 是 等 于 )0 时 ,循环 才 终 止 。 


(a) 步 长 为 正 
Wy 
ss (b) 步 长 为 负 
有 
0 10 
(终止 循环 ) (执行 循环 ) (终止 循环 ) 


图 6.3 循环 变量 I 的 变化 方 癌 
(7) 如 果 计 算出 的 循环 次 数 r 二 0, 则 按 r=0 处 理 , 妈 循环 一 次 也 不 执行 。 例 如 : 
I=10,1,2 
的 循环 次 数 r= 二 INT((e2 一 el 十 e3)/e3)= 二 INT(1 一 10 十 2 /2)= 一 3, 循 环 一 次 也 不 执行 。 


直观 地 看 ,要 从 初 值 10“ 走 向” 终 值 1, 步 长 为 2, 即 沿 着 1 增值 的 方向 变化 ,到 什么 时 候 就 算 
“超过 ” 终 值 呢 ? 事实 上 ,1 一 10( 初 值 ) 时 就 大 于 终 值 1, 因 此 一 次 也 不 执行 循环 体 。 同 理 ， 
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DOI=1,10, -2 
也 一 次 不 执行 循环 体 。 因 为 循环 变量 I 的 值 为 初 值 1 时 ,已 经 小 于 终 值 10 了 (注意 此 时 步 
长 为 全 )。 

(8) 如 条 循环 变量 的 类 型 和 el.e2、e3 的 类 型 不 一 致 , 则 按 赋 值 的 规则 “ 先 算 后 化 青 赋 
值 ? 处 理 , 即 先 将 el 、e2、e3 的 类 型 化 成 循环 变量 的 类 型 ,然后 再 进行 赋值。 例如 


DOI=1.5,3.6,1.2 


不 要 根据 r= 二 INT((e2 一 el 十 e3)/e3) 二 INT(3.6 一 1.5 十 1.2 /1.2)= 2 而 认为 循环 次 数 为 
2 ,而 应 当先 将 实 型 量 转化 为 整 型 量 , 即 变 成 下 面 的 循环 语句 : 


De 3 1 
则 循环 次 数 为 3, 而 不 是 2。 但 请 注意 ,如 果 循 环 变量 不 是 整 型 而 是 实 型 ,如 : 
DOX=1.5,3.6, 1.2 


则 循环 次 数 为 2。 

为 避 倪 错误 ,应 义 量 使 循环 变量 的 类 型 与 初 值 、 终 什 . 步 长 的 类 型 一 致 。 由 于 实 型 数 在 
运算 和 存储 时 有 一 些 误差 ,因而 循环 次 数 的 理论 值 与 实际 值 之 间 会 有 一 些 差 别 。 例 如 .: 

DOX=0.0,50.0, 0.1 

PRINTX ,& 

ENDDO 
按 公 式 计 算 ,r= 二 INT(50. 0 一 0.0 十 0.1 /0.1) = 501, 应 循环 501 次 ,但 实际 上 在 许多 计算 
机 上 它 只 执行 500 次 循环 。 原 因 是 X 从 初 值 0.0 开始 ,每 次 增加 0.1, 但 0.1 在 内 存 中 的 在 
储 是 有 误差 的 (无 法 用 一 个 有 限 的 二 进 制 数 准 确 地 表示 十 进 制 数 0.1) ,因此 每 次 增加 的 不 
是 0. 1, 而 是 与 0. 1 相 接近 的 一 个 数 ,每 次 的 误差 相 积 累 ,在 执行 完 500 次 循环 后 ,理论 上 X 
的 值 为 50.0, 由 于 未 超过 终 值 ,所 以 应 再 执行 一 次 循环 体 , 共 501 次 。 但 在 实际 上 ,由 于 上 
述 误差 积累 ,到 执行 完 500 次 循环 后 ,X 的 值 已 超过 50. 0, 因 而 停止 执行 循环 ,循环 次 数 少 

-次 。 这 种 情况 在 程序 设计 中 笛 有 发 生 ,而 且 隐 蔽 、 不 易 发 现 。 如 采用 循环 来 进行 计算 , 则 

少 一 次 会 影响 计算 结果 。 因 而 应 避免 使 用 实 型 的 循环 变量 。 用 整 型 的 循环 变量 时 ,计算 出 
的 循环 次 数 是 绝对 准确 的 。 如 果 在 循环 体 中 需要 用 到 实 型 的 el 、e2、e3, 则 可 以 进行 转换 ,如 
上 面 的 循环 可 以 改 瑟 成 . 

DO I=0,500,1 

X= I/10.0 

PRINT 关 ,Xx 

ENDDO 
这 样 既 能 保证 循环 执行 501 次 ,又 能 满足 打印 各 个 X( 实 数 ) 的 值 的 要 求 。 用 整 型 变量 [来 
控制 循环 次 数 ,建立 I 与 X 的 关系 。 注 意 不 要 写成 “X= 二 1/10”( 整 型 量 相 除 , 结 果 为 整数 )，。 

(9) 循环 变量 .循环 初 值 el 、 终 值 e2 和 步 长 e3 可 以 是 整 型 ,也 可 以 是 实 型 或 双 精 
度 型 。 


6.1.2 DO 循环 的 执行 过 程 
DO 循环 的 执行 过 程 可 以 分 以 下 几 个 步骤 ,如 图 6.4 所 示 。 
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(1) 计算 el \.e2、.e3 各 表达 式 的 值 , 并 将 它们 转换 成 循环 变量 的 类 型 。 

(2) 将 初 值 el 赋予 循环 变量 VV。 

(3) 计算 循环 次 数 r。 

(4) 检查 循环 次 数 , 耕 r= 二 0( 或 7 二 0) 时 , 则 跳 过 循环 体 , 执 行 ENDDO 语句 后 面 的 第 一 
条 语句 ; 如 果 rr 二 0, 则 继续 执行 循环 体 。 

(5) 执行 ENDDO 语句 时 ,循环 变量 V 增加 步 长 , 即 V 十 e3 志 VV。 

(6) 循环 次 数 7 一 1 坟 r, 即 计算 出 还 应 执行 的 循环 次 数 。 

(7) 返回 步骤 (4) ,重复 执行 步骤 (4)、(5)、(6)、(7)。 

从 上 述 步 又 和 流程 图 可 知 ,ENDDO 语句 除了 完成 该 语句 的 功能 (结束 本 次 循环 ) 外 ,还 
有 两 个 作用 : 由 使 循环 变量 V 增加 步 长 e3; 乌 使 循环 次 数 7 减 1。 

上 述 过 程 也 可 以 理解 为 如 图 6.5 所 示 的 过 程 ,它们 的 作用 是 相同 的 。 


计算 el 、e2 、e3 的 值 


el 三 御 环 变量 六 


计算 循环 次 数 / 
计算 el ~ 2、 e3 的 值 


el 一 循环 变量 


循环 变量 增值 ， 
V+e3— Vr 


御 坏 变量 增值 ， 


V+e3—V 


图 6.4 DO 循环 流程 图 1 图 6.5 DO 循环 流程 图 2 


下 面 看 几 个 DO 循环 的 例子 。 

【 例 6-2】〗】 求 1 十 2 十 3 十 … 十 N 的 和 。 

分 析 : 这 是 和 目 然 数 求 和 问题 ,需要 把 求 和 运算 进行 在 干 次 。 很 明显 这 是 一 个 重复 计算 
问题 ,需要 重复 做 N 次 加 法 运算 。 重 复 计 算 问 题 可 以 很 方便 地 用 DO 循环 实现 。 程序 
如 下 : 

INTEGER SUM 

READ¥ ,N 


SUM =0 
DOI=1,N,1 
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SUM= SUM + I 

ENDDO 

PRINT * , SUM 

END 

【 例 6-3】 求 + 

分 析 : 5!= 二 1X2X3X4X5。 对 于 N! 的 问题 ,计算 公式 是 ; NI 二 1X2X3X…X 
(N 一 1)XN。 显然 这 仍 是 一 个 重复 计算 问题 ,需要 重复 做 N 一 1 次 乘法 运算 。 用 DO 循环 
结构 实现 。 

程序 如 下 : 

INTEGER FACT 

FACT= 1 

DOI= 1,5 

FACT= FACT ¥* I 
ENDDO 


PRINT*¥ ,'5! = ',FACT 
END 


程序 运行 结果 如 图 6.6 所 示 。 

下 面 以 此 例 为 例 ,详细 分 析 DO 循环 的 执行 过 程 。 

从 DO 语句 可 以 知道 ,循环 变量 的 初 值 el . 终 值 e2、 步 长 e3 分 别 为 1.5、1, 则 循环 次 数 
r 二 INT((e2 一 el 十 e3)/e3)= 二 INT(5 一 1 十 1 /1) = 5, 可 知 循环 需要 执行 5 次 ,下 面 开 始 执 
行 循环 。 

第 一 次 循环 : 循环 变量 工 取 初 值 1。1 在 闭 区 间 [1,5j] 的 范围 内 ,执行 循环 体 FACT= 
FACT x* IT 得 到 FACT 的 值 为 1; 之 后 执行 ENDDO 语句 ,结束 本 次 循环 ,同时 循环 变量 增 
加 步 长 , 即 I 二 I 十 1, 此 时 循环 变量 I 的 值 为 2。2 仍 在 财 区 间 [1,5] 的 范围 内 ,所 以 开始 第 二 
次 循环 。 

第 二 次 循环 : I=2,FACT= FACT * 1, 得 到 FACT 的 值 为 2, 之 后 执行 ENDDO 语 
句 ,结束 本 次 循环 ,同时 循环 变量 增加 步 长 , 即 I 二 I 十 1, 此 时 循环 变量 I 的 值 为 3。3 仍 在 闭 
区 间 [L1,5] 的 范围 内 ,所 以 开始 第 三 次 循环 。 

第 三 次 循环 : I 二 3,FACT 二 FACT * 1, 得 到 FACT 的 值 为 6, 之 后 执行 ENDDO 语 
句 ,结束 本 次 循环 ,并 且 循 环 变量 增加 步 长 , 即 I 二 I 十 1, 此 时 循环 变量 I 的 值 为 4。4 仍 在 闭 
区 间 [L1.,5] 的 范围 内 ,所 以 开始 第 四 次 循环 。 

第 四 次 循环 : I 王 4,FACT= FACT * 工 得 到 FACT 的 全 为 24, 之 后 执行 ENDDO 请 
句 ,结束 本 次 循环 ,并 且 循 环 变量 增加 步 长 , 即 II 十 1, 此 时 循环 变量 I 的 值 为 5。5 仍 在 闭 
区 间 [L1,5] 的 范围 内 ,所 以 开始 第 五 次 循环 。 

第 五 次 循环 : I 二 5,FACT 二 FACT * 1, 得 到 FACT 的 值 为 120, 之 后 执行 ENDDO 请 
句 ,结束 本 次 循环 ,并 且 循 环 变量 增加 步 长 , 即 II+1, 此 时 循环 变量 工 的 值 为 6。6 已 超出 
闭 区 间 [L1,5] 的 范围 ,所 以 结束 整个 DO 循环 , 接 下 来 执行 ENDDO 后 面 的 第 一 个 可 执行 

以 上 循环 执行 过 程 也 可 以 表示 为 如 下 所 示 。 

r 一 5 ,需要 执行 循环 体 5 次 。 


QO I=1E€1L1;,5 j,; 则 FACT= FACT 
(W I=2E€EL1;,5 j], 则 FACT= FACT 
G) I==3EL1;,5 j], 则 FACT= FACT 
由 I=4E€[1,5 j, 则 FACT= FACT 


英 


2 


蕉 


2 
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I =24,1= [1 一 5; 


© I=5€[1,5 ], 则 FACT= FACT * 工 天 120,I= I 十 1 一 6。 
I 王 6 和 11,5 ,已 超出 循环 范围 ,所 以 结束 整个 DO 循环 , 接 下 来 执行 ENDDO 后 面 的 


第 一 个 可 执行 语句 。 


读者 也 可 以 从 为 一 个 角度 来 理解 DO 循环 的 执行 过 程 , 即 循环 次 数 依 次 减 小 , 百 到 


r 夺 0。 请 读者 日 已 分 析 该 过 程 。 


为 外 ,由 于 51 等 于 120, 在 可 表示 的 整数 光 围 内 , 故 FACT 可 以 用 整 型 变量 。 但 如 来 求 
101, 其 值 为 3 628 800 ,对 于 某 些 计算 机 来 说 ,该 值 已 超出 可 表示 的 整数 范围 ,无 法 用 整 型 变 
量 FACT 来 存储 ,必须 将 FACT 改 为 实 型 变量 。 如 果 示 超出 整数 范围 , 则 用 整 型 量 来 处 理 


比较 好 ,准确 度 高 。 


【 例 6-4】 求 1! 十 2! 十 3! 十 … 十 NI 的 和 。 


分 析 : 本 例 是 例 6-2 和 例 6-3 的 组 合 。 


乘 ) ,然后 再 进行 累加 。 程 序 如 下 : 


INTEGER FACT, SUM 
READ*X¥ ,n 
FACT= 1 
SUM =0 
DOI= 1,n 
FACT= FACT x* I 
SUM= SUM + fact 
PRINT ¥ ,SUM 
END 


应 先 求 出 要 累加 的 每 一 项 ( 即 每 个 自然 数 的 阶 


【 例 6-5】 求 *==14x 二 本 十 本 … 二 本 的 值 ,n 由 键盘 输入 。 
本 例 类 似 于 例 6-4, 同 样 需要 先 求 出 要 累加 的 每 一 项 ,然后 再 进行 累加 。 程 序 如 下 


READ 关 , n,& 

TERM =1.0 

E =1.0 

DOI= 1,n 
TERM = TERM x* X/I 
E= E + TERM 

ENDDO 

PRINT*¥* , "EXP(X)= ",E 

END 


由 例 6-2 至 例 6-5 可 以 看 出 ,利用 DO 循环 可 以 很 方便 地 解决 系 加 和 素 乘 问题 。 读 痢 可 


以 目 己 编程 求解 下 列 问 题 : 


1 ] ] 
i 


1 
100 
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6.1.3 DO 循环 的 一 些 说 明 
(1) 循环 变量 在 循环 体 中 只 能 引用 ,不 能 再 被 赋值 。 下 面 的 程序 段 是 正确 的 : 


DON =1,100 
M = Nx*2 ! 对 循环 变量 引用 
ENDDO 
它 打 印 出 2,4,6,8,10,… ,200。 如 果 将 程序 段 写成 下 面 这 样 , 则 是 不 正确 的 : 
DON =1,100 
N= Nx*2 ! 对 循环 变量 赋值 
ENDDO ! 改变 循 环 变量 的 值 ,在 编译 时 会 出 现 错误 


在 编 详 时 会 出 现 错误 。 错 误 提 示 “Error: An assignment to a DO variable within a DO body 
is invalid. ”。 因 为 N 是 循环 变量 ,在 循环 体内 再 被 赋值 ,就 破坏 了 原 有 的 循环 过 程 。 循 环 
变量 N 只 能 在 执行 ENDDO 语句 时 增值 (增加 步 长 ), 不 能 在 循环 体 中 任意 改变 它 的 值 。 
(2) 循环 次 数 是 根据 循环 变量 的 初 什 、 终 仁和 步 长 计算 出 来 的 ,在 执行 循环 体 期 间 是 确 
定 不 变 的 。 如 果 初 始 K=1,J 王 100,M 王 1, 要 执行 下 面 的 循环 : 
DOI =KJ M+1 
及 三 2 ¥ 及 
可 三 可 十 工 
M= 2/M 
PRINTX , K,J, M 
ENDDO 
在 执行 循环 体 之 前 ,循环 次 数 已 计算 好 , 共 执 行 50 次 循环 ,不 因 KK、J、M 值 的 改变 而 改 
变 , 不 能 企图 在 循环 执行 期 间 通 过 改变 循环 变量 的 初 值 、 终 值 和 步 长 的 值 来 改变 循环 的 次 
数 。 即 ; 循环 变量 的 初 值 、 终 值 和 步 长 可 以 用 变量 (或 表达 式 ) 表 示 , 这 些 变 量 在 进入 循环 之 


前 已 被 赋值 ,那么 在 循环 体内 改变 初 值 、 终 值 和 步 长 中 的 这 些 变 量 的 值 ,不 影响 循环 体 的 
执行 。 


(3) 循环 结束 后 ,循环 变量 的 值 有 意义 ,其 值 为 执行 最 后 一 次 循环 体 时 的 值 再 增加 一 个 
步 长 。 例 如 


及 = 
cn “C:\Programn Files\Nicroso... | 
DO I=1,5,2 m Ee 国 
K=I Press any key to continue 
ENDDO 
PRINT ¥*x ,K,I os 2 
i 图 6.7 示例 程序 运行 结果 


程序 运行 结果 如 图 6.7 所 示 。 

分 析 : PRINT 语句 为 循环 结束 后 的 语句 ,PRINT 中 KK 值 为 最 后 一 次 执行 循环 体 时 的 I 
值 , 即 最 后 一 次 执行 的 I 值 为 5, 则 K 值 为 5, 而 循环 变量 工 的 值 则 为 退出 (脱离 ) 循 环 后 的 循 
环 变 量 值 , 即 执行 完 最 后 一 次 循环 体 后 增加 一 个 步 长 2 后 所 得 到 的 值 ,为 7。 

(4) 正 篆 出 口 和 非 正 背 出 口 : 未 执行 完 应 执行 的 循环 次 数 而 脱离 循环 的 , 称 为 " 非 正 党 
出 口 ”( 或 强制 出 口 ), 有 关内 容 参 见 6.3 方 。 执 行 完全 部 应 执行 的 循环 次 数 而 脱离 循环 的 ， 


第 6 章 ， 循 环 结构 程序 设计 人 32/ 
称 为 “ 正 第 出 口 ”。 

下 面 再 来 看 几 个 DO 循环 结构 和 选择 结构 相 结 合 的 例子 

【 例 6-6】 编写 程序 ,输出 100 一 999 的 所 有 “水 仙 花 数 ” 

分 析 :“ 水 仙 花 数 " 是 指 任何 一 个 三 位 数 ,其 各 位 数字 的 立方 和 等 于 该 数 本 身 ( 例 如 
153 王 了 十 5 十 3 , 故 153 是 水 仙 花 数 )。 从 这 个 条 件 出 发 ,对 100 一 999 的 所 有 数 一 一 验证 
是 否 符 合 这 个 条 件 就 可 以 了 。 很 明显 ,这 是 一 个 循环 次 数 确定 的 循环 ,可 以 用 DO 循环 结构 
编写 程序 。 

程序 编写 如 下 : 

INTEGER N,N]1,N2,N3 

DO N= 100,999 

NL = N/100 
N2 = MOD(N/10,10) 
N3 = MOD(N,10) 
IF(N] xx 3+ N2 xx*x 3+ N3 xx*x 3= = N)THEN 
PRINT x* ,NM ' 是 水 仙 花 数 ， 
END IF 
ENDDO 
END 


程序 运行 结果 如 图 6. 8 所 示 。 


153 是 水 人 山花 数 
370 在: 


永 相 相当 
3931 是 7 5 改作 术 扶 
467 是 水 仙 容 执 


Press any key to continue 


图 6.8 例 6-6 运行 结果 


【 例 6-7】 输入 某 班 50 位 同学 一 门 课程 的 成 绩 , 并 统计 各 分 数 段 人 数 。 分 数 段 划分 为 : 
90 一 100 分 ,80 一 89 分 ,70 一 79 分 ,60 一 69 分 ,60 分 以 下 

分 析 : 本 程序 可 用 DO 循环 结构 来 编写 ,采用 边 输 入 边 判 断 的 方式 统计 各 分 数 段 人 数 。 

程序 编写 如 下 : 


INTEGER N, N90, N80, N70, N60, NS60,G 

N90=0 

N80=0 

N70=0 

N60=0 

NS60 =0 

DON=1,50 
READ < ,G 
IF(G>= 90.AND.G<100) NM90=N90+1 
IF(G>= 80.AND.G<90) N80 = N80+1 
IF(G>= 70.AND.G<80) N70 = N70 +1 
IF(G>= 60.AND.G<70) N60 = N60 + 1 
IF(G<60) NS60 = NS60 +1 

ENDDO 
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PRINT * , "分数 段 90 一 100 的 学 生 数 为 ", N90 
PRINT * , "分 数 段 80 一 89 的 学 生 数 为 ", N80 
PRINT x , "分 数 段 70 一 79 的 学 生 数 为 ", N70 
PRINT * , "分 数 段 60 一 69 的 学 生 数 为 ", N60 
PRINT * , "分 数 段 < 60 的 学 生 数 为 ", NS60 
END 


6.1.4 DO 循环 结构 的 能 套 
-个 DO 循环 结构 中 又 完整 地 包含 另 一 个 或 多 个 DO 循环 结构 , 称 为 DO 循环 结构 的 


rDO 工 = 1, 10 


DOJ=1,5 
| i | 外 循环 
Neh 


ENDDO 


通常 把 处 在 外 层 的 循环 结构 称 为 外 循环 ,处 在 内 层 的 循环 结构 称 为 内 循环 。 由 于 循环 
第 构 可 以 多 层 散 套 ( 也 称 多 重 循 环 ) ,所 以 ,内 循环 和 外 循环 是 相对 的 。 艇 侄 的 人 循环 层 数 原则 
上 不 限 , 但 不 宜 太 多 。 如 果 有 N 重 循环 , 且 从 外 到 内 每 层 的 循环 次 数 都 能 事先 确定 ,分别 为 
risra、… rn， 则 最 内 层 循 环 结构 中 循环 体 的 执行 次 数 为 : ri Xr;X…Xrvy。 右 各 重 人 循环 的 
次 数 不 能 事先 确定 , 则 按 “ 外 循环 每 执行 一 次 ,内 循环 全 部 执行 一 过 ”的 原则 计算 总 循环 
【 例 6-8】 观察 以 下 程序 中 循环 藤 套 的 执行 情况 和 循环 变量 的 变化 情 沈 。 


分 析 : 程序 中 ,1 是 外 循环 控制 变量 ,J 是 内 循环 控制 变 


_ 8 cn “下 :人 EN 及 T 及 二 两 下 及 站 让 及- -。 - 
量 ,每 执行 次 内 循环 ,就 会 把 循环 变量 工 J 的 值 显示 出 来 ， | 
每 执行 完 一 次 外 层 循环 ,就 会 显示 “下 一 次 循环 ”。 程 序 运行 1 


1 
下 一 次 循环 
过 


2 


结果 如 图 6. 9 所 示 。 
由 图 6. 9 可 以 看 到 ,在 循环 藤 套 中 ,外 循环 每 执行 一 次 ， 
内 循环 都 要 重新 执行 其 所 有 的 循环 次 数 。 以 本 例 来 说 ,外 循 
环 共 执行 3 次 ,每 执行 一 次 都 会 令 内 循环 执行 3 次 ,因此 内 循 
环 总 共 会 重复 执行 3X3==9 次 。 Press_ any keyw to continue 
把 例 6-8 稍 作 修改 ,内 循环 由 DO J=1,3 改 为 DO J=1， es 
3 , 问 内 循环 共 执 行 了 多 少 次 ? 图 6.9 例 6-8 运行 结果 


+ 
下 一 次 循环 
| 
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此 时 ,内 循环 的 次 数 和 外 循环 变量 II 有关, 也 即 内 循环 的 次 数 随 着 外 循环 变量 工 值 的 变 
化 而 变化 ,不 是 一 个 定 值 ,那么 内 循环 的 总 次 数 就 不 能 青 用 公式 ri Xr 计算 了 。 这 种 情况 
可 按 “ 外 循环 每 执行 一 次 ,内 循环 全 部 执行 一 遍 ” 的 原则 进行 。 下 面 按 该 原则 分 析 以 上 程 
序 段 : 

第 一 次 外 循环 ,I 二 1, 内 循环 为 DO J=I,3, 内 循环 共 执 行 3 次 。 

第 二 次 外 循环 ,I 二 2, 内 循环 为 DO J=I,3, 内 循环 共 执 行 2 次 。 

第 三 次 外 循环 ,I 二 3, 内 循环 为 DO J=I,3, 内 循环 共 执 行 1 次 。 

所 以 内 循环 的 执行 总 次 数 为 1 十 2 十 3==6, 即 内 循环 共 执 行 了 6 次 。 

【 例 6-9】 求 11,31,51,71。 

求 阶乘 的 方法 在 前 面 已 介绍 过 ,可 用 一 个 DO 循环 来 解决 。 现 在 需要 求 4 个 数 的 阶乘 ， 
而 且 间 隔 是 固定 的 (1,3,5,7, 每 两 个 数 之 间 的 间隔 为 2) ,因而 很 容易 设想 用 般 套 的 DO 循 
环 来 实现 ,用 外 循环 控制 卓然 数 的 变化 ,内 循环 用 于 求 目 然 数 的 阶乘 。 有 人 编写 出 以 下 

FACT=1.0 

‘DOJ=1,7,2 

DOK=1,J 
FACT = FACT ¥* 及 
ENDDO 
PRINT x* ,J, '!= ' ,FACT 

END 

请 读者 仔细 检查 一 下 上 述 程序 有 无 问题 。 如 果 没 有 把 握 , 可 以 试 运 行 一 下 ,得 到 结果 
如 下 : 


11= 1.0000000 
了 = 6. 0000000 
31= 720.0000000 


了 = 3.628800E + 006 


可 以 看 出 ,计算 出 的 1! 和 31! 的 值 是 正确 的 ,而 5!1 和 7! 的 值 不 对 (5! 应 为 120,71 应 为 5040) 。 
请 读者 检查 错误 在 何 处 (在 纸 上 用 人 工 检查 称 为 “静态 检查 ”) 。 如 梨 查 不 出 来 ,可 以 在 计 
算 机 上 检查 : 可 以 加 两 个 打印 (输出 ) 语 句 以 检查 程序 执行 过 程 中 各 步骤 的 有 关 变 量 的 
值 。 两 个 打印 语句 一 个 加 在 内 循环 DO 语句 之 前 ,一 个 加 在 “FACT 二 FACT * 开 "语句 之 
后 。 即 : 


100 
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FACT= 1.,.0 
DJ=1,5,2 
PRINT * , 'VALUE OF FACT BEFORE INNER LOOP IS : ',FACT, 'J='",J 
DOK=1,J 


FACT= FACT * K 
PRINT*¥ , 'J="',J, 'K= ',K, 'FACT= ', FACT 
ENDDO 
PRINT * ,J, '!= ' ,FACT 
ENDDO 
END 


为 节省 篇 幅 , 这 里 只 求 11、31、51, 只 要 把 求 51 过 程 中 的 错误 找 出 来 ,问题 就 得 到 解决 。 
上 述 程序 运行 情况 如 图 6. 10 所 示 。 


co GNAbookhASi\Debas\Sl. ere” 

VALUE OF FACT BEFORE INNER LOOP LIS : , 000000 

J= 1] k= 1 FACT= , QOO000 
1'= 1.000000 

VALUE OF FACT BEFORE INNER LOOP IS : 

J]= 3 下 = | FACT= 000000 

J= 3 EK= 2 FACT= -2.000000 

J= 3 及 = 3 FACT= 6. 000000 
:= 6. 000000 


VALUE OF FACT BEFORE INNER LOOP LS : 和 
1 FACT= 6. 000000 
2 FACT= 12.00000 
FACT= 36. 00000 
FACT= 144. 0000 
FACT= 120. 0000 


c1 ON OT CT on 


tl 
| 


120. 0000 
esSS any key to continue 


图 6.10 例 6-9 运行 结果 


可 以 看 到 , 当 J]==1 和 J 二 3 ga 当 J 二 5 时 ,在 进入 内 循环 之 前 FACT 的 
初 值 为 6, 而 不 是 1。 这 就 有 问题 ,在 每 次 进入 内 循环 之 前 FACT 的 初 值 都 应 当 为 1。 检 
查 一 下 这 个 6 是 从 哪里 来 的 ? 这 个 6 就 是 3! 的 值 。 在 求 51 时 ,本 应 从 FACT=1 开始 进行 
neo 6X2X3X4X5, 所 以 得 到 720。 问 题 就 出 在 FACT 
的 初 值 上 ,应 保证 在 每 次 进入 内 循环 之 前 FACT 的 值 为 1。 程序 修改 如 下 : 


DOJ=1,7,2 
FACT=1.0 
DOK=1,J 
FACT= FACT 关 K 
PRINT* ,J, '!= ' ,FACT 
.ENDDO 
END 


再 次 运行 ,结果 就 正确 了 


二 1.0000000 
31= 6.0000000 
时 120.0000000 
71= 3040.0000000 
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通过 这 个 例子 ,读者 可 以 体会 怎样 检查 和 调试 程序 。 在 机 右上 检查 称 为 “动态 检查 ”。 读 
者 应 该 熟悉 上 机 调试 程序 的 方法 和 技巧 , 即 上 机 找 销 。 这 是 和 学习 计算 机 语 程 的 一 个 基本 要 求 。 
【 例 6-10]】 求 >)ml ,nn 的 值 通过 键盘 输入 。 


分 析 : 从 整体 上 看 这 仍然 是 累加 求 和 的 问题 ,需要 重复 进行 求 和 运算 ,运算 的 次 数 是 可 
以 确定 的 ,而 累加 的 每 一 项 是 阶 磁 值 ,又 属于 办 来 的 问题 ,因此 可 用 循环 藤 生 解决。 内 循环 
用 于 求 每 个 日 然 数 的 阶乘 ,外 循环 把 内 循环 求 得 的 每 个 日 然 数 的 阶乘 ( 即 每 一 项 ) 系 加 起 来 。 


INTEGER I,J,F,SUM 
SUM = 0 
RERD 关 ,N 
"DO I=1,N 
F=1 


5 
自然 数 的 了 i 敢 和 = 153 
Press any key to continue 


图 6.11 例 6-10 运行 结果 


本 例 也 可 以 用 单 层 DO 循环 实现 , 见 例 6-4。 
我 们 再 来 看 例 6-5 如 何 用 DO 循环 散 套 来 实现 。 


2 | _ 
【 例 6-11】 求 ED et ebp un DO 循环 狗 套 来 编写 : 


‘DOI= 1,n 

FACT= 1.0 
P=1.0 
DOJ=1,I 

FACT= FACT x*J 
P=PxX 

ENDDO 

TERM = P/ FACT 
E= E + TERM 


PRINT x* , "EXP(X) = ",E 
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用 内 循环 分 别 求 出 I! 和 分 子 X'( 分 别 用 变量 FACT 和 了 表示 )。TERM 表示 第 1 项 的 
值 。 请 读者 日 己 比 较 本 程序 和 例 6-5 的 优 劣 。 

两 重 循环 的 执行 过 程 如 下 。 

J 先 计算 外 循环 应 执行 的 次 数 xr,( 即 执行 外 循环 体 的 次 数 ), 奇 7 二 0, 则 外 循环 控制 变 
量 取 初 值 。 

@ 如 果 产 二 0, 则 执行 外 循环 体 ( 顺 序 执 行 外 循环 体 中 各 语句 , 即 执行 下 面 第 包 到 第 人 @) 
步骤 ) ,如果 三 0, 则 结束 外 循环 过 程 , 转 去 执行 外 循环 终端 语句 ENDDO 语句 的 下 一 

@) 在 执行 外 循环 体 的 各 语句 序列 过 程 中 , 遇 内 循环 的 DO 语句 时 ,计算 内 循环 应 执行 
的 次 数 x; ,内 循环 控制 变量 取 初 值 。 

由 如 果 疡 二 0 ,执行 内 循环 体 各 语句 , 共 执 行 疡 次 ,每 执行 一 次 ,内 循环 变量 增值 一 次 。 
2 一 1 访 rs。 当 执行 完 应 有 次 数 后 ,rs 二 0, 从 “正常 出 口 ”" 脱 离 内 循环 。 

@) 接着 执行 内 循环 终端 语句 ENDDO 语句 后 面 的 外 循环 体内 的 语句 ,直到 外 循环 的 终 
端 请 句 ENDDO 请 人 句 。 

@ 外 循环 变量 增值 ,x 一 1 过 7 ,返回 第 加 步骤 重新 执行 。 

可 以 看 出 以 下 两 点 。 

(1) 外 循环 每 执行 一 次 ,就 要 执行 r; 次 DO 内 循环 ( 即 外 循环 每 执行 一 次 ,内 循环 全 部 
执行 一 过 ) 。 

(2) 一 个 DO 内 循环 的 执行 应 包括 执行 r; 次 内 循环 体 。 如 果 在 执行 外 循环 的 过 程 中 x。 
的 值 不 变 ( 即 内 循环 的 次 数 能 事先 确 知 ), 则 在 执行 一 个 两 重 循环 过 程 中 ,内 循环 体 中 的 语句 
应 执行 rj Xr 次 。 

【 例 6-12】 白 钱 头 百 鸡 问题 。 

公元 5 世纪 末 ,我 国 古代 数学 家 张 丘 建 在 人 《 算 经 》 中 提出 了 ” 百 鸡 问题 ?>:“ 鸡 翁 一 ,值钱 
五 ; 鸡 母 一 ,值钱 三 ; 鸡 和 骏 三 ,值钱 一 。 百 钱 买 百 鸡 , 问 鸡 翁 、 母 、 委 各 几何 ?” 意 为 : 公鸡 每 只 
5 元 , 母 鸡 3 元 ,小 鸡 1 元 3 只 ,用 100 元 买 100 只 鸡 。 

设 X 为 公鸡 数 ,Y 为 母 鸡 数 ,Z 为 小 鸡 数 。 根 据 题 意 有 : 

X 二 TY 十 2Z = 100 
5X 十 3Y 十 Z/3 == 100 

3 个 未 知 数 ,2 个 方程 ,是 一 个 不 定 方程 组 , 它 的 解 不 唯一 ,而 是 有 多 组 解 。 对 这 类 问题 
无 法 用 解析 法 解 , 只 能 将 所 有 可 能 的 X、Y、Z 值 一 个 个 地 去 试 ,看 是 否 满足 上 面 两 个 方程 式 ， 
如 满足 就 是 一 组 解 。 

在 程序 中 ,为 避免 实数 运算 出 现 的 误差 ,可 以 采用 整 型 量 进行 运算 。 将 上 面 第 二 个 方程 
改写 为 15X 十 9Y 十 Z = 300, 编 写 程序 如 下 : 

INTEGER X,Y,2 

DOX = 0,100 

DOY = 0,100 

DOZ = 0,100 


IF((X+Y+ 2).EQ.100) THEN 
IF(15x*xX + 9xY + ZZ = 300) PRINT* ,'X= "',X, 'Y="',Y, 'Z=',Z 
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这 种 方法 称 为 “ 枚 举 法 ”或 “ 穷 举 法 ”, 是 在 用 其 他 方法 无 法 解决 时 的 一 种 方法 。 上 面 的 程序 
用 了 三 重 循环 ,循环 次 数 为 101X101X101 寺 100 万 次 ,对 微机 来 说 显然 循环 次 数 太 多 了 ,能 
否 减 少 一 些 呢 ? 事实 上 ,100 元 不 可 能 买 100 只 公鸡 ,因为 全 部 用 来 买 公 鸡 , 最 多 才能 买 
20 只 ,还 要 再 买 母 鸡 和 小 鸡 ,那么 最 多 只 能 买 19 只 ; 同 理 , 母 鸡 最 多 能 买 33 只 (其 实 比 这 还 
少 )。 程 序 可 修改 为 : 
INTEGER X,Y,2 
DOX = 0,19 
DOY = 0,33 
= 三 J00—-X—Y 
IF(15xX + 9xY + 2 = 300) PRINTx ,'X=',X, 'Y=',Y, 'Z=',2 
ENDDO 
ENDDO 
END 
修改 后 的 程序 只 有 两 重 循环 ,循环 次 数 为 20 X34 次 ,不 到 100 万 次 的 万 分 之 七 
(0.068%), 显 然 程序 的 效率 大 大 提高 了 。 所 以 只 要 对 题目 稍 做 分 析 , 便 可 大 大 提高 编程 


6.1.5 隐 含 DO 循环 结构 


通过 前 面 的 例题 不 难看 出 : 利用 DO 循环 或 DO 循环 钥 套 进行 输入 或 输出 时 ,由 于 每 
次 都 要 重新 执行 输入 或 输出 语句 ,因此 每 行 只 能 输入 或 输出 一 次 执行 的 结果 。 

【 例 6-13】〗 打印 数字 1 一 10 中 所 有 的 奇数 。 

利用 DO 循环 结构 ,编写 程序 如 下 : 

D0I=T 10 2 

PRINT* ,I 

ENDDO 

END 

运行 结果 如 图 6. 12 所 示 。 

分 析 : 对 于 此 类 问题 ,如 果 计 算 结 果 行 数 较 多 ,就 会 分 多 屏 显 示 , 查 看 时 非常 不 方便 。 
这 时 就 再 要 新 的 方法 来 改变 具有 一 定 规 律 的 一 系列 数据 的 输入 或 输出 方式 。 

利用 隐 含 DO 循环 结构 就 可 以 很 方便 地 实现 对 数据 输入 和 输出 方式 的 控制 。 

隐 舍 DO 循环 结构 是 DO 循环 结构 的 一 种 特殊 表现 形式 ,一 般 只 出 现在 输入 或 输出 语 
句 中 。 

1. 隐 含 DO 循环 结构 的 一 般 格 式 

隐 含 DO 循环 结构 的 一 般 格式 如 下 : 


PRINT x* ,(W,V= el,e2[,e3]) 


6.12 例 6-13 运行 结果 
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或 

RERD * ,(W,V= el,e2[,e3]) 

说 明 : 

(1) V 为 循环 变量 ,用 来 控制 循环 次 数 。el、e2 和 e3 为 表达 式 , 分 别 表示 循环 变量 V 

的 初 值 . 终 值 及 步 长 。 

(2) W 为 输入 或 输出 项 表 列 ,输入 或 输出 项 的 数目 可 根据 需要 自行 设 定 。 它 表示 要 输 
出 (或 输入 ) 的 内 容 , 可 以 是 第 量 , 也 可 以 是 包含 循环 变量 的 表达 式 , 输 入 输出 元 系 的 个 数 由 
循环 次 数 决定 。 

(3) 循环 次 数 计算 方法 .循环 执行 的 过 程 、 使 用 该 种 循环 应 注意 的 事项 等 与 一 般 格式 的 
DO 循环 结构 完全 一 样 。 

【 例 6-14】〗 打印 数字 1 一 10 中 所 有 奇数 。 程 序 可 改 为 : 

PRINT * , (I,I=1,10,2) 

END 


程序 运行 结果 如 图 6. 13 所 示 。 


图 6.13 例 6-14 运行 结果 


再 看 一 个 例子 ,进一步 理解 隐 含 DO 循环 结构 对 输出 方式 的 控制 。 
【 例 6-15】 打印 九 九 乘法 表 。 

1X1=1 

1X2=2 2X2 一 4 

1X3=3 2X3=6 3X3 一 9 


分 析 : 很 明显 ,程序 中 需要 用 到 两 个 变量 I 和 了 丁 来 分 别 表 示 乘 数 和 被 乘 数 ,这 两 个 变量 
都 很 有 规律 ,解决 此 类 问题 可 以 用 二 重 租 套 的 DO 循环 结构 。 另 外 ,程序 中 可 使 用 
FORMAT 语句 来 控制 输出 数据 的 格式 ,FORMAT 语句 中 的 < 工 > 为 可 变 重 复 系 数 , 其 值 
可 根据 循环 变量 发 生变 化 。 需 要 注意 的 是 ,用 变量 作 重 复 系 数 时 ,一 对 尖 括 号 “< >? 不 可 

程序 编写 如 下 : 

INTEGER I,J 

DOI=1,9 

PRINT 10,(J ,x*',I,'=',Ix J,J =1,I1) 

ENDDO 

10 FORMAT (< 工 >(I1 ,AI1,R,I2 ,2X)) 

END 
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程序 运行 结果 如 图 6. 14 所 示 。 


1 
dd 22= 4 

3 2¥3= 6 3¥3= 9 

4 2x4= 8 3x4=12 4*4=16 

3 xy=1B 了 = 人 和 并 = 回避 并 = 局 
b 

也 

8 

9 


xb=12 Jxb=18 4x06=24 vxb=38 bab=3b 

a Ne dt a ds 7 

2¥8=16 3x8=24 4¥x8=32 bx8=406 6x8=48 ‘7x8=56 8#*8=64 
2¥x93=198 3¥x9=27 dx9=36 59=45 6x9=54 ?x*F=63 8x9=72 Fx*9=81 


Press any key to continue 


6.14 例 6-15 运行 结果 


2. 隐 含 DO 循环 结构 的 谋 套 

村 DO 循环 结构 的 散 侄 一样, 隐 仿 DO 循环 结构 也 可 以 有 诅 套 ,而 且 同 样 可 以 出 现 多 重 
脱 套 。 其 藤 套 是 以 括号 划分 的 ,内 层 括号 称 为 内 循环 ,外 层 插 号称 为 外 循环 。 

隐 合 DO 循环 结构 的 般 套 一 般 格 式 为 : 


PRINT * ,((W,V1= el,e2[,e3]),V2= el,e2[,e3]) 


READ * ,(( W,V1 = el,e2[,e3]),V2 = el,e2[,e3]) 


说 明 : 

(1) V2 为 外 循环 的 循环 变量 ,用 来 控制 外 循环 次 数 ; V1 为 内 循环 的 循环 变量 ,用 来 控 
制 内 循环 次 数 。el、e2 和 e3 为 表达 式 , 分 别 表 示 循 环 变 量 V2 和 V1 的 初 值 . 终 值 及 步 长 。 
内 循环 体 实际 执行 的 次 数 为 内 、 外 循环 各 日 可 以 执行 的 次 数 之 积 ( 即 ri Xrs 次 )。 

(2) 无 论 有 和 多少 重 循环 藤 套 ,都 只 能 用 小 括号 , 且 插 号 一 定 要 成 对 出 现 , 不 允许 出 现 其 


他 括号 形式 。 
【 例 6-16】 用 隐 含 DO 循环 结构 的 般 套 打印 “AB” 六 次 。 
程序 编写 如 下 : 
PRINT < ,(('A', 'B',I=1,3),J = 1,2) 
END 


程序 运行 结果 如 图 6. 15 所 示 。 

程序 中 1 为 内 层 循环 变量 ,] 为 外 层 循环 变量 ,内 层 。 “1 人 016 生生 全 
循环 次 数 为 3 次 ,外 层 循环 次 数 为 2 次 ,所 以 输出 项 字符 
AB 共 显 示 2X3 二 6 次。 

3. 隐 含 DO 循环 结构 及 DO 人 循环 结构 峰 套 的 应 用 

利用 隐 含 循环 不 但 可 以 改变 输入 输出 的 方式 ` 数 组 元 系 输入 输出 的 先后 顺序 ( 详 见 第 8 
董 ), 而 且 可 以 打印 具有 一 定 变 化 规律 的 图 形 , 这 类 问题 中 通常 要 配套 使 用 FORMAT 语句 
来 对 数据 进行 格式 输出 。 


FORTRAN 语言 程序 设计 一 一 FORTRAN95 
【 例 6-17】 打印 以 下 由 数字 组 成 的 图 形 。 
l 
及 
12 
1234 
12345 
分 析 : 利用 循环 结构 实现 输出 图 形 的 功能 ,重要 的 是 先 观 察 图形 的 形状 ,然后 再 看 图 形 
中 字符 的 变化 规律 。 本 题 从 图 形 形 状 上 看 是 一 个 直角 三 角形 ,字符 组 成 相对 比较 简单 ,只 1 
数字 ,而 且 数 字 呈 现 规律 性 的 排列 : 每 一 行 从 左 到 右 都 是 按照 由 小 到 大 的 顺序 排列 ,并 且 数 
字 的 个 数 和 所 在 行 号 相同 。 因 此 可 以 利用 循环 藤 套 编写 程序 ,其 中 外 循环 控制 行 数 ,每 循环 
-次 ,执行 一 次 输出 , 隐 合 DO 循环 作为 内 循环 ,控制 输出 每 一 行 的 内 容 。 程 序 中 
FORMAT 语句 控制 数据 输出 格式 ,每 个 数据 占 一 个 列 宽 。 
程序 编写 如 下 : 
DOI=1,5 
PRINT 10, (J,J = 1,1) 
ENDDO 
10 FORMAT(<I>I1) 
END 


cn “FEF:\fortranprogra..- -上 口 |x| 


图 6.16 例 6-17 运行 结果 网 
程序 运行 结果 如 图 6. 16 所 示 。 


6.2 DO WHILE 循环 结构 


对 于 循环 次 数 能 事先 确定 的 循环 ,可 以 用 DO 循环 很 方便 地 实现 ,但 是 有 些 问 题 的 循环 
次 数 并 不 能 事先 确定 ,只 能 通过 给 定 的 条 件 来 决定 是 否 进行 循环 ,这 时 就 可 以 用 DO 
WHILE 循环 来 实现 。 
6.2.1 DO WHILE 循环 的 组 成 

DO WHILE 循环 的 一 般 格 式 如 下 : 

DO WHILE( 人 逻辑 表达 式 ) 

循环 体 

ENDDO 

说 明 | 

(1) DO WHILE 循环 由 三 部 分 组 成 : DO WHILE 语句 ,循环 体 和 ENDDO 语句 。 

(2) DO WHILE 语句 是 DO WHILE 循环 的 起 始 霹 句 ,其 中 逻辑 表达 式 是 表示 循环 的 
控制 条 件 ,必须 全 部 放 在 括号 里 面 。 

(3) 循环 体 是 DO WHILE 循环 结构 的 主体 ,是 在 循环 过 程 中 被 重复 执行 的 语句 组 。 

(4) ENDDO 语句 是 DO WHILE 循环 的 终端 语句 ,表明 本 次 的 循环 体 执行 到 此 结束 ， 
之 后 又 转 到 DO WHILE 语句 继续 执行 循环 结构 。 

(5) 使 用 DO WHILE 循环 语句 时 要 特别 注意 避免 死 循 环 的 产生 ,要 保证 循环 体 中 至 少 
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有 一 条 语句 对 循环 控制 条 件 有 影响 ,否则 将 产生 死 循 环 。 如 下 列 程序 : 


SUM=0 

READ 关 ,X 

DO WHILE (0<=X .AND. X<= 100) 
SUM = SUM + XX 
PRINT x* ,XxX 

ENDDO 

PRINT * ,'SUM= ',SUM 

END 


程序 运行 时 ,车 第 1 个 输入 数据 为 0 至 100 以 内 的 数 , 程 序 产 生死 循环 ,无 法 终止 。 
(6) DO WHILE 循环 也 可 以 多 重 舱 套 ,用 法 及 注意 事项 同 DO 循环 。 


6.2.2 DO WHILE 循环 的 执行 过 程 
DO WHILE 循环 的 执行 过 程 如 图 6. 17 所 示 。 


计算 表示 循环 控制 条 件 的 迎 辑 表达 式 .， 


结 采 赋予 log 


N 


Y 


执行 循环 体 


执行 DO WHILE 循环 语 名 后面 一 条 语 杀 


图 6.17 DO WHILE 循环 执行 过 程 


(1) 先 计算 表示 循环 控制 条 件 的 逻辑 表达 式 的 值 ,结果 赋 子 log。 

(2) 若 log 二 .TRUE. , 则 执行 循环 体 直到 ENDDO 语句 ,否则 终止 循环 , 转 去 执行 
ENDDO 语句 下 面 的 第 一 条 可 执行 请 句 。 

(3) 执行 ENDDO 请 句 , 控 制 转 至 (1) 继 续 执 行 。DO WHILE 循环 结构 在 每 次 循环 体 
执行 前 部 要 计算 表示 循环 控制 条 件 的 逻辑 表达 式 , 其 计算 结果 决定 循环 体 是 否 继续 执行 。 
循环 体 的 执行 过 程 必须 对 循环 控制 条 件 产生 影响 。 

下 面 再 来 看 几 个 DO WHILE 循环 结构 的 例子 。 

【 例 6-18】 用 DO WHILE 循环 结构 改写 例 6-3 ,计算 51。 

程序 编写 如 下 : 

PARAMETER(N = 5) 

INTEGER F 


I=1 
F=1 
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DO WHILE(I< = N) 失 “F:AFORTRANPROC- . 。 加 回回 

F 三 FI = ea | | | 
三 本 十 Press any key to continue | 

工 = 工 十 二 | } 

ENDDOQ 

PRINT*#* , '5! =',F 6.18 例 6-18 运行 结果 

END 


程序 运行 结果 如 图 6. 18 所 示 。 

分 析 : 程序 执行 结果 和 例 6-3 完全 相同 ,同样 会 算出 正确 的 结果 ,不 过 程序 语句 看 起 来 
更 复杂 一 点 。 改 用 DO WHILE 循环 结构 编写 程序 ,循环 变量 的 初 值 设 置 (程序 中 第 3 行 ) 
和 改变 (第 7 行 ) 都 需要 用 命令 明确 表示 出 来 ,循环 终止 条 件 的 判断 表达 式 也 要 明确 写 清 楚 
(第 5 行 )。 即 DO WHILE 循环 把 DO 循环 的 隐 含 条 件 都 用 明确 的 场 句 显 示 出 来 。 

这 个 循环 同样 会 执行 5 次 ,请 读者 目 己 分 析 循 环 的 执行 过 程 。 

这 里 使 用 DO WHILE 循环 结构 并 不 比 前 面 使 用 DO 循环 结构 所 编写 出 来 的 程序 精简 
和 美观 。 因 为 DO WHILE 循环 结构 的 目的 并 不 是 用 来 处 理 这 种 “计数 累加 循环 ”情况 的 。 
DO WHILE 循环 结构 有 所 处 理 的 是 无 法 预先 确定 循环 次 数 、 只 能 通过 给 定 条 件 判 断 的 循环 ， 
即 用 DO WHILE 循环 结构 实现 的 是 当 型 循环 。 

下 面 再 看 另外 一 道 例 题 。 


| | 二 i 有 一 
【 例 6-19】 求 sinx 二 zx 一 317 十 一 71 十 “十 (一 1)”'。70z 下, 直到 最 后 一 项 的 绝 


(2 
对 值 小 于 10“ 时 ,停止 计算 。X 由 键盘 输入 。 
分 析 : 这 显然 是 一 个 累加 求 和 问题 ,关键 是 如 何 表示 出 各 累加 项 。 公 式 中 给 出 的 累加 
项 表示 很 复杂 , 较 好 的 广 法 是 找到 递 推 公式 ,利用 前 一 项 来 求 下 一 项 ,会 简化 程序 设计 。 
这 里 首先 推导 出 递 推 公 式 , 用 了 表示 要 累加 的 项 
第 1 项 : 万 一 工 


_ 2 一 
第 ; 项: 2 


Tr ; 
第 ;一 1 项 : fi Dg s (# 


大 已 知 (n 一 1)1, 求 nl 公式 为 . nXX( 
辣 理 可 推 ， 已 知 (n 一 2)1,nl= 二 (nn 一 1)XnX(n—2)1, 
所 以 第 i 项 和 第 i 一 1 项 之 间 的 北 推 公式 为 . 


fi 
本 次 循环 的 累加 项 可 以 在 上 一 次 循环 累加 项 的 基础 上 递 推出 来 , 递 推 公式 要 比 原 公式 
简单 
程序 编写 如 下 : 


PARAMETER (PI = 3.1415926) 

RERA] X,F,SIN 

INTEGER : : I=1 

READ * ,Xx ! 输 入 角度 值 
X=XxPI/180 ! 将 角度 换算 为 弧度 仁 
SIN= X 

F=X 


(1 一 2,3,") 
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DO WHILE(ABS(F)> 1.0E—6) ! 循环 条 件 判 断 
I=I+1 

F= 一 双关 X/A((2 关 工 一 2) 关 (2 关 工 一 1)) 关 下 
SIN= SIN + 了 

ENDDO 

PRINT 10, SIN 

10 FORMAT(F4.2) 
END 


程序 运行 结果 如 图 6. 19 所 示 。 

【 例 6-20】 输入 一 个 正 整数 ,统计 并 输出 其 位 数 。 

分 析 : 利用 整数 相 除 得 到 整数 的 计算 规则 来 求 位 数 。 把 输入 的 整数 存 人 变量 N 中 ,用 
变量 K 来 统计 N 的 位 数 , 使 用 DO WHILE 循环 结构 来 实现 。 

程序 编写 如 下 : 


INTEGER N,K 
K=0 

RERAD < ,N 

DO WHILE(N> 0) 
K=K+1l 

N= N/10 

ENDDO 

PRINT* ,'K= ',K 
END 


程序 运行 结果 如 图 6. 20 所 示 。 


eh \forb... 
eh : \fortranprogr. = -上 口 |x 35134 一 二 
K= 5 


Press any key to continue 


图 6.19 例 6-19 运行 结果 图 6.20 例 6-20 运行 结果 


6.3 循环 的 流程 控制 


在 前 面 的 示例 程序 中 ,循环 过 程 都 是 正常 结束 。 有 些 特 殊 问 题 ,如 在 循环 处 理 过 程 中 需 
要 提前 终止 本 次 循环 或 整个 循环 时 , 则 需要 在 循环 中 进行 流程 控制 。 下 面 介 绍 两 个 循环 流 
程控 制 语 句 : EXIT 语句 和 CYCLE 语句 。 


6.3.1 EXIT 语句 


EXIT 语句 的 功能 是 可 以 直接 “跳出 ”一 个 正在 运行 的 循环 , 转 到 循环 结构 ENDDO 后 
的 下 一 个 语句 执行 。DO 循环 和 DO WHILE 循环 结构 内 都 可 以 使 用 EXIT 语句 。 

【 例 6-21]】 EXIT 语句 改写 例 6-20 , 求 正 整数 位 数 。 

程序 编写 如 下 : 


INTEGER N,K 
K=0 


110 


READ 关 ，N 

DO WHILE( . TRUE. ) 

K=K+1 

N= N/10 

IF(N<= 0) EXIT 

ENDDO 

PRINT* ,'K= ',K 

END 

程序 中 ,循环 的 逻辑 表达 式 ( 循 环 控制 条 件 ) 直 接 设 置 为 .TRUE. ,这 是 允许 的 ,表示 这 
个 循环 执行 的 条 件 永远 成 立 , 如 果 不 在 循环 中 加 入 跳出 循环 的 控制 语句 ,会 造成 死 循 环 。 所 
以 在 循环 体内 设置 了 EXIT 语句 , 当 条 件 N<0 满足 时 执行 EXIT 语句 ,跳出 循环 。 

EXIT 语句 不 提倡 使 用 ,因为 它 破坏 了 程序 的 结构 化 特性 。 有 些 情 况 下 ,高 水 平 的 设计 
人 员 可 用 EXIT 语句 简化 程序 。 人 合理 使 用 EXIT 语句 是 从 死 循 环 中 退出 的 有 效 途 径 


6.3.2 CYCLE 语句 


CYCLE 语句 的 功能 是 略 过 循环 体 中 CYCLE 语句 后 面 的 所 有 语句 ,直接 跳 回 循环 的 开 
头 来 进行 下 一 次 循环 ( 即 结 束 本 次 循环 ,开始 下 一 次 循环 )。 在 DO 循环 和 DO WHILE 循 
环 内 都 可 以 使 用 CYCLE 语句 。 来 看 下 面 的 示例 。 

【 例 6-22】〗 打印 出 1 一 10 内 的 数字 ,3 和 6 不 打印 。 

分 析 : 在 程序 中 通过 条 件 设 定 跳 过 输出 3 和 6 的 操作 。 

程序 编写 如 下 : 


oc" “FEF:\fortranprogra... 


DOI=1,10 
IF(I== 3.0R.I==6) CYCLE 
PRINT * ,I he | 
| Press any key to continue 
ENDDO 
END 


站 图 6.21 例 6-22 运行 结果 
程序 运行 结果 如 图 6. 21 所 示 。 


在 程序 中 使 用 DO 循环 ,从 1 到 10, 每 一 次 循环 都 将 循环 变量 的 值 显示 出 来 ,在 循环 体 
输出 语句 前 加 入 条 件 判 断 ,循环 变量 的 值 为 3 或 6 时 执行 CYCLE 语句 ,上 略 过 后 面 的 输出 请 
句 ,再 跳 回 循环 的 和 人口 ,继续 执行 新 一 轮 的 循环 。 

如 果 需 要 略 过 目前 的 循环 ,直接 进入 下 一 次 循环 ,可 以 使 用 CYCLE 语句 。 


6.4 几 种 循环 形式 的 关系 和 比较 


(1) DO 循环 用 来 处 理 循 环 次 数 已 确定 的 问题 。DO WHILE 循环 既 可 处 理 已 知 循环 次 
数 的 循环 问题 ,也 可 用 来 处 理 循 环 次 数 不 确定 的 问题 。 一 般 而 言 , 对 事先 能 确定 循环 次 数 的 
循环 ,用 DO 循环 比较 方便 , 它 能 使 循环 变量 日 动 增值 ,不 需要 用 户 写 逻辑 表达 式 , 只 需要 与 
出 循环 变量 的 初 值 . 终 值 和 步 长 即 可 ,使 用 方便 。 对 事先 不 能 确定 循环 次 数 的 循环 可 以 用 
DO WHILE 循环 。 但 这 并 不 是 绝对 的 ,很 多 情况 下 它们 是 可 以 相互 代替 的 。 

be DO 循环 实质 上 也 是 一 种 “ 当 型 循环 ”, 它 也 是 先 判 断 ( 条 件 )、 后 执行 (循环 体 )。 但 这 
种 “ 当 型 循环 ”的 循环 条 件 只 能 是 “ 当 r 关 0”(r 为 循环 次 数 , 每 执行 一 次 循环 体 ,r 的 值 减 1)。 
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(3) 几 种 形式 的 循环 可 以 相互 转换 ,或 者 说 ,同一 个 问题 可 以 用 任 一 种 循环 来 处 理 。 下 
面 以 判断 际 数 为 例 来 说 明 这 个 问题 。 

输入 一 个 整数 MCM 三 3) ,判断 它 是 否 是 素数 。 

这 个 问题 既 可 以 用 DO 循环 实现 ,也 可 以 用 DO WHILE 循环 实现 ,还 可 以 用 无 条 件 
DO 循环 和 EXIT 声名 结合 来 实现 。 所 谓 系 数 是 指 只 能 和 被 1 和 日 号 整除 而 不 能 被 其 他 数 整 
除 的 整数 ( 除 1 以 外 )。 根 据 系 数 定义 ,判断 一 个 数 M 是 否 是 系数 的 基本 方法 为 : 将 N 作为 
被 除 数 , 将 2 到 (CN 一 1) 之 间 各 个 整数 轮流 作为 除数 ,如 条 都 不 能 整除 , 则 N 为 系数 。 实 际 
上 ,从 数学 的 角度 分 析 ,N 不 必 被 2 到 (N 一 1) 之 间 的 整数 整除 ,只 需要 被 2 到 N/2 之 间 的 整 
数 整 除 即 可 ,甚至 只 需要 被 2 到 SQRT(N x* 1.0) 之 间 的 数 整 除 即 可 。 这 样 就 可 以 大 大 节省 
运行 时 间 ,提高 程序 效率 。 编 写 程序 如 下 。 

程序 1: 用 DO 循环 实现 。 


READ x* ,M 
J = SQRT( REAL(M)) 
DOI=2,J 
IF (MOD(M,I) == 0) EXIT 
ENDDO 
IE (I>J.AND.M> 1) THEN 
PRINT *¥* ,M, 'is a prime number 
PRINT x* , M,'is not prime number' 
END IF 
END 


程序 2: 用 DO WHILE 循环 实现 。 


READ x* ,M 
I = 之 
J = SQRT(REAL(M)) 
DO WHILE(I <= J.AND.MOD(M,I)/=0) 
I=I+] 
ENDDO 
IE (I1>J.AND.M>1) THEN 
PRINT * ,M,'1s a prime number 
ELSE 
PRINT * ,M, 1s not prime number’ 
END IF 
END 


程序 3: 用 无 条 件 DO 循环 和 EXIT 语句 结合 来 实现 。 


READ x ,M 
I=2 

J = SORT( REAL(M)) 

DO 

IE (MOD(M,I) == 0.0OR.I1>J) EXIT 
I=I+1 

ENDDO 

IF (I>J.AND.M>1) THEN 


112 一 2 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


PRINT * ,M, '1s a prime number 
ELSE 

PRINT * , M, '1is not prime number 
END IF 
END 


(4) 各 种 循环 可 以 相互 舱 套 ,但 一 个 循环 必须 完整 地 包含 在 男 一 个 循环 之 内 。 

【 例 6-23】 求 3 一 100 的 全 部 素数 。 

分 析 : 3 以 上 的 素数 必然 是 奇数 ,而 且 奇 数 的 因 了 于 只 能 是 奇数 。 判 断 一 个 数 是 否 是 素 
数 需 要 用 一 重 循环 ,要 找 出 3 一 100 的 全 部 素数 需要 用 到 循环 在 套 。 

程序 编写 如 下 : 


‘DO N= 3, 100,2 

J = SORT(N*x* 1.0) 

Te 

DO WHILE (I<= J.AND. (MOD(N,1)/= 0)) 
| I=I+2 

ENDDO 

IF(I>J) PRINT x ,N 

ENDDO 

END 


6.5 程序 举例 


循环 结构 是 编写 程序 不 可 缺少 的 重要 结构 之 一 ,程序 设计 者 一 定 要 熟悉 有 关 循 环 的 各 
种 用 法 ,才能 更 好 地 进行 程序 编写 与 阅读 。 下 面 是 一 些 使 用 循环 解决 问题 的 实例 示范 。 

【 例 6-24】 斐 波 纳 契 (Fibonacci) 数 列 问 题 是 一 个 著名 的 古典 数学 问题 。 问 题 是 这 样 
提出 的 : 某 人 第 一 个 月 有 一 对 兔子 ,假定 到 第 三 个 月 时 这 对 兔子 会 生 下 一 对 小 兔子 ,以 后 每 
月 都 生 一 对 小 金子 ,而 小 例子 生 下 后 到 第 三 个 月 又 会 生 一 对 小 人 金子 ,以 此 规律 标 殖 。 显 然 ， 
第 一 个 月 、 第 二 个 月 时 只 有 一 对 兔子 ,第 三 个 月 共有 两 对 ( 生 了 一 对 ) ,第 四 个 月 有 三 对 ( 老 的 
再 生 下 一 对 ,小 的 不 生 ) ,第 五 个 月 有 五 对 ( 老 的 已 生 两 对 ,小 的 生 一 对 ) ,如 此 繁殖 下 去 。 可 
以 这 样 归 纳 此 数列 的 规律 : 它 的 前 两 个 数 是 1,1, 从 第 三 个 数 开 始 每 个 数 是 其 前 两 个 数 之 
和 。 则 此 数列 的 前 几 个 数 是 1,1,2,.3,5,8,13,21,34,…。 编 写 程序 , 求 斐 波 纳 契 数列 前 
20 个 数 。 

这 个 问题 仍 是 “ 递 推 问题 ”, 即 要 从 前 面 已 知 的 数 推出 后 面 的 数 ,或 者 说 ,在 一 个 数 的 序 
列 中 ,下 一 项 的 值 对 前 一 项 有 某 种 依赖 和 关系, 求 某 一 项 的 值 要 从 第 一 项 逐 项 推算 而 得 (前 面 
的 累加 、 累 乘 问题 中 都 用 到 了 递 推 的 概念 ) 。 再 如 列 : 1,2,4,8,16,32,64,128,256,… ,后 
一 项 是 前 一 项 乘 以 2。 可 以 找 出 这 个 数列 的 规律 : 

a = 1 (n = 1) 
lw = 
表示 后 项 对 前 项 的 依赖 关系 的 式 子 称 为 “ 递 推 关系 式 ”, 上 面 的 “a 一 a,-1 X 27 就 是 递 推 关 
系 式 ,ai 一 1 称 为 “初始 条 件 ” 或 “边界 条 件 ”。 
有 些 递 推 问题 可 以 直接 用 公式 求 出 第 nn 项 的 值 ,例如 ,用 2”!1 可 求 得 上 面 数列 第 nn 项 的 
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但 。 但 有 些 问题 无 法 百 接 用 公式 求 出 第 nn 项 的 值 ,如 Fibonacci 数列 就 是 无 法 耳 接 用 公式 求 
出 第 nn 项 的 值 ,必须 从 第 3 项 起 一 项 项 地 从 其 前 两 项 推出 第 3 项 ,其 递 推 天 系 式 为 ; 
FF -= | op 十 Da (7 > 3 ) 
初始 条 件 为 ; 
nh 二 1 (二 |) 
F, 1 {n= 2) 

因为 递 推 矢 系 有 一 定 规 律 , 故 用 循环 来 处 理 递 推 问题 是 很 方便 的 。 

求解 上 述 Fibonacci 数列 的 计算 方法 已 给 出 ,其 思路 是 从 Fl 、F2 推出 下 一 个 数 F3 ,再 将 
原来 的 F2 作为 F1 、F3 作为 F2, 推 出 下 一 个 新 的 F3, 以 此 类 推 ,可 得 到 Fibonacci 数列 的 各 
项 值 。 

程序 编写 如 下 : 

INTEGER:: FEF1 = 1,F2 = 1,F3 

PRINT x* ，E1,F2 

DO I=3,20 

F3= F2+ Fl1 

PRINT x ,F3 

Fl1=F2 

F2 = F3 

ENDDO 

END 


【 例 6-25】 求 2 一 10 000 范围 内 的 字形 数 ( 同 构 数 )。 

分 析 : 所 谓 守 形 数 是 指 该 数 平 方 的 低位 数 等 于 该 数 本 身 。 例 如 25 二 625, 而 625 的 低 
位 25 与 原 数 相同 , 则 称 25 为 守 形 数 ,又 称 同 构 数 。 

可 以 用 穷 举 法 解决 这 类 问题 , 即 在 2 一 10 000 范围 内 ,对 所 有 的 数 逐 一 验证 是 否 符 合 守 
形 数 的 和 条件。 问题 的 关键 就 是 如 何 判断 一 个 任意 数 N 是 否 是 它 平方 的 低位 数 , 换 句 话说 ， 
对 任意 两 个 有 内 在 联系 的 自然 数 M 和 N ,怎样 判断 N 是 否 为 M 的 低位 数 。 判 断 的 方法 是 
对 M 用 求 余 函数 截取 与 N 相同 的 位 数 进 行 比 较 。 

程序 编写 如 下 : 


DOI=2,10000 
K=IxI 
IF(I<10)THEN 
M= MOD(K, 10) 
ELSE IF(I < 100)THEN 
M= MOD(K, 100) 
ELSEIF(I < 1000)THEN ct "PF: \fortranprogra... -上 口 |x 
M= MOD(K,1000) 
ELSE 
M= MOD(K,10000) 
END IF 
IF(M= = I)PRINTx ,I 
ENDDO 
END 


程序 运行 结果 如 图 6. 22 所 示 。 6.22 例 6-25 运行 结果 


114 


FORTRAN 语言 程序 设计 一 一 FORTRANS95 


清谈 者 思考 ,如 采 要 找 出 任意 范围 内 的 守 形 数 , 范 围 由 键盘 输入 ,程序 如 何 编写 ? 


【 例 6-26】 编写 程序 ,验证 下 面 公式 : 


十 2 十 十 二 一 n(n 十 1D (2n 十 1 
分 析 : 设 用 上 表示 等 式 左 闹 的 值 ,R 表示 等 式 右 端的 值 。 分别 计 算 L 入 ,判断 它们 是 


否 相 等 ,如 采 相 等 , 则 等 式 成 立 ,否则 不 成 立 。 采 用 实数 是 否 相等 的 判断 方法 。 


计算 L 通过 DO 循环 结构 实现 。 计 算 R 通过 赋值 语句 实现 。 


程序 编写 如 下 : 


L=0 
PRINT x*,' 输 入 项 数 N: ， 
READ x ,N 
DOI=1,N ! 计算 等 式 左 端 值 工 
工 = 工 十 工 共 工 
ENDDO 
R=Nx (N+1)* (2*xN+1)/6. 
IF(ABS(L— R)<1E- 6) THEN 
PRINT x* ，' 公 式 正确 144， 
ELSE 
PRINT x*，,' 公 式 不 正确 !11' 
ENDIF 
END 


程序 运行 结果 如 图 6. 23 所 示 。 


! 计算 等 式 右 端 值 R 


cf “FEF:\fortranprogran... -IDIx| 


1 里 


八 式 让 确 t++ 
Press any key to continue 


图 6.23 例 6-26 运行 结果 


【 例 6-27】 编写 一 个 小 型 计算 天 程序 ,用 键盘 输入 两 个 数字 ,再 根据 运算 符号 判断 这 两 


程序 编写 如 下 : 


CHARACTER KEY CODE 
KEY= YY 
DO WHILE(KEY == 'Y '.OR.KEY=='y ') 
PRINT * 
PRINT * ， "请 输入 计算 数据 和 运算 和 侍 :" 
READ * ,A 
READ " (Al)",CODE 
READ * ,B 
SELECT CASE( CODE) 
CASE ( "二 1 
ANS=A+B 
CASE ('—') 
ANS=A—B 
CASE ('* '") 
ANS=A*B 
CASE ('/') 
ANS = A/B 
CASE DEFAULT 
PRINT ¥* , "Unknown Operator:",CODE 
STOP 
ENDSELECT 


个 数字 做 加 减 乘除 的 哪 一 项 运算 ,每 做 完 一 次 计算 后 ,让 用 户 来 决定 是 否 还 要 进行 新 的 计算 ，。 
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PRINT 10, A, CODE, B, ANS 
10 FORMAT(F6.2,Al,F6.2,'= ',F6.2) 


PRINT *¥ 
PRINT *," 输 入 (Y/Yy) 继续 计算 ,输入 其 他 字符 退出 " 
READ * ,KEY 

ENDDO 


END 


程序 运行 结果 如 图 6. 24 所 示 。 


请 输入 计算 数据 和 运算 符 ， 
4 


3 
6 
4.80x 6.00= 24.809 


输入 《zw 继续 计算 ， 输 六 
vy 


请 输入 计算 数据 和 运 草 符 ; 
5 


34 
5.80+ 34.00= 39.80 
辆 六 “zw 痰 续 计 算 ， 输 入 其 它 


本 
Press any key to continue 


1. 写 出 下 列 程序 的 运行 绪 


(1) S=1.0 
DO K=2,10,4 
S=S+1/K 
ENDDO 
PRINT x* ,S 
END 
(2) B= 4,0 


DO K=3,1, -1 
DO N= -1, -3 
S=2xS 

ENDDO 

ENDDO 

PRINT x*,S 

END 


(3) DO N= 10,99 
NA = N/10 
NB = MOD(N, 10) 
IF (NA+ NB .EQ. 10) THEN 
PRINT *, 'N= ',N 
ENDIF 
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ENDDO 


M=M+1 
ENDDO 
ENDDO 
PRINT 关 ，I， J ,K ,L,M 
2. 编写 程序 , 求 100 之 内 所 有 奇数 之 和 。 
3. 利用 下 式 计 算 x 的 近似 值 。 
FF_ 1 1，L_ LT 1 | 
二 下 5 7 下 Ti 3 4n—1 
4. 输入 20 个 数 , 统 计 其 中 正 数 、 人 负数 和 零 的 个 数 。 
5. 打印 输出 1、2、3、4 能 组 成 的 所 有 可 能 的 四 位 数 并 统计 个 数 。 
6. 输入 X 值 , 按 下 列 公 式 计算 cosCz)。 精 度 要 求 6 位 有 效 数字 ,最 后 一 项 二 10“。 编 
写 程 序 实现 。 


(n = 1000 ) 


ER 
cos(X)=1 ol 41 6 十 


7. 打印 出 500 以 内 满足 个 位 数字 与 十 位 数字 之 和 除 以 10 所 得 的 余数 是 百 位 数 的 所 有 
数 ,并 统计 出 这 些 数 的 个 数 。 

8. 编写 计算 下 式 的 FORTRAN 程序 ,” 值 由 键盘 输入 。 

1 十 (1 十 3) 十 (1 十 3 十 5) 十 (1 十 3 十 5 十 7) 十 … 十 (1 十 3 十 5 十 7 十 … 十 7) 

9. 编写 程序 , 求 2 至 10 000 之 间 的 所 有 “和 完 数 ”。 所 谓 “ 完 数 ” 是 指 除 日 号 之 外 的 所 有 因 

子 之 和 等 于 上 自身 的 数 。 如 28 是 一 个 完 数 ,因为 28 的 因子 有 1、2、4、7、14、28, 且 : 
28 二 1 十 2 十 4 十 7 十 14 

10. 已 知 某 球 从 100m 高 度 自 由 落下 ,落地 后 反复 弹 起 ,每 次 弹 起 的 高 度 都 是 上 次 高 度 
的 一 半 。 求 此 球 第 10 次 落地 后 反弹 起 的 高 度 和 球 所 走 过 的 距离 。 

11. 编程 输出 如 下 数字 三 角 阵 。 


| 
1 8 
l3 14 1o 


l9 20 zl 20 

so 600 2 L8 29 

31] 32 33 44 3 30 
20 20 21 4 29 

il9 20 2 20 


格式 输入 和 输出 


。 等 握 整 型 编辑 符 和 实 型 编辑 符 ; 
。 等 握 格 式 输入 的 方法 ; 

。 掌握 格式 输出 的 方法 ; 

。 掌 握 FORMAT 语句 的 使 用 方法 。 


程序 处 理 的 对 象 是 数据 ,程序 的 作用 就 是 对 数据 进行 加 工 , 因 此 需要 回程 序 输 入 原始 数 
据 ,并 且 将 运算 得 到 的 结果 输出 。 

前 面 几 和 草 介 绍 了 最 简单 的 表 控 输入 和 输出 语句 ,这 种 语句 比较 简单 、. 易 掌握 ,在 此 基础 
上 再 介绍 格式 输入 输出 语句 。 之 所 以 这 样 安排 , 目 的 是 使 谈 者 在 学 习 程 序 设 计时 首先 集中 
于 算法 及 语言 的 基础 方面 ,不 至 于 在 开始 时 花 过 多 的 精力 在 烦琐 的 格式 输入 输出 上 。 在 初 
步 掌握 了 程序 设计 的 方法 及 FORTRAN 语言 的 基本 知识 后 ,再 进一步 学 习 格 式 输 入 输出 ， 
这 样 更 符合 循序 渐进 、 突 出 重点 的 原则 。 

程序 不 但 能 输出 正确 的 结果 ,而 且 希 望 按照 自己 所 希望 的 格式 输出 数据 ,例如 一 个 数据 
占 多 少 列 ,输出 的 实数 小 数 点 可 以 保留 几 位 , 行 间 数 据 的 对 齐 方式 ,等 等 。 总 之 希望 输入 灵 
活 方 便 , 输 出 整齐 、 美 观 、 多 样 化 。 

由 于 格式 输出 比 格式 输入 容易 理解 一 些 , 所 以 本 章 先 介绍 格式 输出 。 掌 握 了 格式 输出 
后 再 学 格式 输入 就 比较 容易 。 


7.1 格式 输出 


用 户 可 以 自己 指定 输出 格式 。FORTRAN 规定 要 用 不 同 的 “格式 编辑 符 ”( 或 称 “ 编 辑 
描述 符 ” ,简称 "编辑 符 ”) 来 实现 指定 的 输入 输出 格式 , 它 的 作用 是 对 数据 进行 “编辑 加 工 ”， 
以 得 到 所 需要 的 格式 (如 同 报刊 编辑 对 文字 进行 编辑 加 工 一 样 ) ,故此 得 名 。 下 面 介 绍 
FORTRAN 语言 的 常用 编辑 稚 。 


7.1.1 I 编辑 符 


I 编辑 符 用 于 整 型 数据 的 输入 输出 。 它 有 两 种 格式 , 即 ， 

(1) Im 

(2) Irw.m 

大 写字 母 [是 整数 Integer 的 第 一 个 字母 ,用 来 表示 “ 整 型 数 编辑 ”。 

输出 数据 常 采 用 PRINT 语句 (或 WRITE 语句 ) 和 FORMAT 语句 配合 使 用 ,在 


FORMAT 语句 中 用 编辑 符 指 定 输出 的 格式 。 如 : J 二 40,K== 一 12,L 二 123, 则 


PRINT 100, J, KK, L 


100 FORMAT (13, 15, 17) 


PRINT 请 句 后 的 数字 100 是 一 个 FORMAT 语句 的 标号 。 它 用 来 指出 : PRINT 语句 
中 的 输出 项 (J,K,L) 按 该 FORMAT 语句 指定 的 格式 输出 。FORMAT 语句 是 “格式 说 明 语 
句 ”, 它 是 一 个 非 执 行 场 名 ,本身 不 产生 任何 操作 ,只 是 提供 输入 或 输出 的 格式 。FEORMAT 
语句 可 以 出 现在 程序 中 程序 单元 说 明 语 句 之 后 和 END 语句 之 前 的 任何 地 方 。 系 统 按 
PRINT 语句 (或 WRITE 请 句 ) 中 指定 的 请 句 标 号 找到 相应 的 FORMAT 语句 ,并 按 其 规定 
的 格式 对 输出 数据 进行 “编辑 ”。 

上 述 FORMAT 语句 中 的 括号 内 有 三 项 , 即 13,15,17。13 表示 相应 整数 的 输出 占 3 列 
位 置 ,I5 表示 占 5 列 ,I7 表示 占 7 列 。FORMAT 语句 中 各 编辑 符 与 PRINT 语句 (或 
WRITE 语句 ) 中 的 各 输出 项 按 排列 的 顺序 一 一 对 应 , 即 整 型 变量 ] 的 输出 占 3 列 ,K 的 输出 
占 5 列 ,L 的 输出 占 7 列 。 上 面 的 PRINT 语句 按 FORMAT 语句 指定 的 格式 输出 如 下 : 

40 -12 123 

me 

3 列 5 列 7 列 

注意 : 

(1) 数字 在 指定 的 区 域内 向 右 端 人 靠 齐 , 如 果 数 字 位 数 比 Iw 的 w 小 (40 为 两 位 数字 ,而 
输出 编辑 符 为 13), 则 左边 补 以 空格 (以 下 务 线 示意 空格 )。 一 个 数据 所 占 的 宽度 称 为 “字段 
宽度 ”，w 用 来 指定 字段 宽度 。 

(2) 负数 的 负 号 也 包含 在 字段 宽度 内 。 如 果 J] 二 一 40, 则 I3 可 以 容纳 ; 如 果 J] 二 一 400， 
则 I3 不 能 容纳 。 

(3) 如 果 应 输出 的 列 数 超过 了 指定 的 字段 宽度 , 则 不 输出 有 效 数 据 , 而 在 该 字段 宽度 范 
围 内 充满 “* ”符号 。 如 上 面 的 输出 中 ,如 果 J] 二 一 400, 则 输出 ， 


‘ih -12 123 
rm 一 一 
J K L 


也 可 以 用 Iw.m 编辑 符 ;Iw. mm 中 的 也 仍 表 示 一 个 输出 数据 的 字段 宽度 ,7 表示 需要 输 
出 的 最 少数 宇 位 数 。 例 如 ,将 上 面 的 FORMAT 请 句 改 为 : 


PRINT 100, J,K,L 
100 FORMAT( 13, 15.4,17.5) 


如 J、K.、L 的 值 不 改变 , 则 输出 格式 为 : 


40 -0012 00123 
rm = 一 一 一 
3 列 ”5 列 7 列 


可 以 看 出 : 人 输出 4 位 数学 ,L 输出 5 位 数字 ,这 就 是 m 指定 的 。 注 意 : m 不 包括 负 号 所 占 
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的 一 列 ,K 用 I5.4 编辑 符 输 出 ,数字 占 4 列 , 负 号 占 1 列 , 共 5 列 。 

如 果 应 输出 的 数字 超过 xx, 则 按 实际 应 输出 的 位 数 输出 (但 条 件 是 不 能 超过 w)。 例 如 ， 
如 果 上 面 的 工 值 为 123 456, 仍 用 17.5 编辑 符 输 出 , 则 输出 结果 为 : 

_ 40 -0012 123456 

A 

] K L 

虽然 m= 二 5, 但 数据 为 6 位 ,在 这 种 情况 下 为 保证 输出 数据 的 正确 性 ,要 突破 mx 的 限制 ， 
按 数 值 的 实际 位 数 输 出 。 

在 利用 I 编辑 符 输 出 时 ,应 注意 w 的 值 不 能 选 得 太 小 ,以 免 出 现 “ 字 有 段 宽度 不 够 ”?。 但 
在 实际 上 ,事先 难以 估计 每 个 数据 的 确切 位 数 , 一 般 w 选 稍 大 一 些 ,具体 可 根据 所 用 计算 机 
系统 允许 的 整数 范围 来 定 。 例 如 ,有 的 计算 机 系统 允许 的 整数 范围 为 21 X10 , 即 可 以 有 
10 位 数字 , 则 可 选 ww 二 12, 如 I15、I16 等 。 

表 7. 1 是 用 1 编辑 符 输出 整数 的 结果 。 

表 7.1 工 编辑 符 输 出 示例 
要 输出 的 值 输出 结果 说 明 
. TS 
8736 按 数据 的 实际 位 数 输 出 


说 明 ; 不 同 的 计算 机 系统 对 于 “字段 宽度 不 够 ”的 人 处理 没有 统一 的 规定 ,多 数 以 充满 
“x ”人 处理, 也 有 的 只 在 字段 的 第 一 个 位 置 打 印 一 个 “x ”, 然 后 打印 数据 中 前 几 位 数字 。 例 如 
表 7. 1 中 最 后 一 行 ,有 的 系统 给 出 的 结果 是 “x 一 123”。 


7.1.2 下 编辑 符 

F 是 Fixed point number( 和 是 点数) 的 第 一 个 字母 ,用 于 实数 编辑 。 下 编辑 符 用 于 实数 的 
小 数 形式 输出 ,其 一 般 格式 为 : 

Fw.d 
w 的 含义 仍 为 “字段 宽度 ”,d 的 含义 是 输出 数据 的 小 数位 数 。 例 如 , 当 A=15.8,B= 
一 746. 578 ,C= 二 873.2 时 ,如 用 下 面 的 输出 语句 : 


WRITE( * ,200)A,B,C 
200 FORMAT(F6.1,F9.2,F7.2) 
则 输出 格式 为 
15.8 -746.58 873.20 
6 太 | 9 列 | 7 列 
规定 A 的 字段 宽度 为 6, 其 中 有 一 位 小 数 , 而 A 二 15. 8, 共 占 4 列 , 故 左 补 两 个 空格 。 规 定 B 
的 字段 宽度 为 9, 其 中 有 两 位 小 数 , 而 B= 一 746. 578, 有 三 位 小 数 , 将 小 数 部 分 截断 ,只 保留 
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两 位 小 数 , 对 第 三 位 小 数 按 “ 四 舍 五 和 人 ”处理 ,因此 输出 _ 一 746. 58。 规 定 C 的 字段 宽度 为 
7, 其 中 有 两 位 小 数 , 而 C= 二 一 873.2, 布 补 一 个 0 以 输出 两 位 小 数 ,输出 _873. 20。 显 然 应 使 
d 二 w, 如 果 5 为 数据 的 整数 部 分 的 位 数 , 应 使 刀 三 6 十 d 十 1( 因 为 小 数 点 也 要 占 1 列 )。 例 
如 ,要 正确 输出 746.578 ,保留 两 位 小 数 , 则 也 应 大 于 3 十 2 十 1= 王 6; 如 果 输 出 负数 , 则 应 
保证 w 宇 5 十 d 十 2( 因 为 负 号 也 要 占 1 列 )。 一 般 应 使 w 选 大 一 些 ,如 Fl5.6、Fl8.6 等 。 但 
- 般 也 难以 确切 估计 输出 项 的 值 ,例如 输出 A.\B 两 个 数据 ,A 的 值 为 2345 678.0,B 的 值 
为 0.000 001 234, 硅 用 输出 请 句 : 
WRITE( * ,200)A,B 
200 FORMAT(F9.2,F12.3) 


则 输出 格式 为 
本 闵 素 素 率 闪 闪闪 0.000 
~ 一 一 一 = 
A B 


这 是 由 于 无 法 按 F9. 2 输出 A 的 值 ( 因 为 2345678. 00 要 占 10 列 ,字段 宽度 不 够 ) ,所 以 在 A 
的 字段 宽度 内 输出 9 个 “*”。B 的 输出 虽然 不 会 出 现 * 字 段 宽 度 不 够 2 的 错误 ,但 只 输出 小 
数 点 后 3 个 0, 把 有 效 的 数字 "1234? 截 去 了 。 可 以 看 出 ,用 下 编辑 符 时 ,由 于 难以 事先 确切 
估计 出 数据 的 大 小 ,输出 大 的 数 时 容易 产生 “ 守 度 不 够 ”的 错误 (由 于 w 不够 大 ) ,输出 小 的 
数 时 会 出 现 丢 挥 有 效 数字 的 情况 (由 于 4d 不够 大 而 将 后 面 的 数学 截 去 ), 这 就 是 "大 数 印 错 ， 
小 数 印 和 于”。 这 是 用 下 编辑 和 伯 时 要 注意 的 一 个 问题 。 
表 7.2 是 用 FF 编辑 符 输出 实数 (小 数 形式 ) 的 结果 。 
表 7.2 F 编辑 符 输 出 示例 


7 ET 
0. 000 768 576 多 余 小 数 四 舍 五 入 


7.1.3 EE 编辑 符 

E 编辑 符 用 于 实数 的 指数 形式 (采用 标准 化 的 指数 形式 ) 输 出 ,E 是 Exponent( 指 数 ) 的 
第 一 个 字母 。 其 一 般 格式 为 : 

Ew.d 
w 的 含义 仍 为 “字段 宽度 ”,d 为 以 指数 形式 出 现 的 实数 的 小 数位 数 。 例 如 , 当 A=15.8,B= 
一 746. 578 ,C= 二 873.2 时 , 奉 用 下 面 的 输出 语句 : 


WRITE( * ,200)A,B,C 
200 FORMAT(E15.6,E12.4,E9.3) 


则 软 出 格式 为 
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0.138000 E+02 -0.7466 E+03 0.873 E+03 


一 一 rm mm rr 
6 列 4 列 4 列 4 列 3 列 例 


人 
A B C 


每 个 数据 字段 中 ,指数 部 分 占 4 列 ( 其 中 字母 E 和 指数 的 符号 各 占 1 列 , 指 数 占 2 列 。 
有 的 系统 正 号 不 输出 ,以 空格 代替 ,有 的 系统 对 指数 部 分 的 前 导 0 以 空格 代替 )。 小 数 部 分 
d 列 ,再 加 上 一 个 小 数 点 和 小 数 点 前 的 一 个 “0”。 因 此 ,如 果 w 三 2 十 4 十 4, 则 左边 补 两 个 空 
格 ,如 果 输 出 负数 , 则 负 号 占 一 列 。 因 此 ,应 保证 w 二 3 十 d 十 4, 即 w 宇 d 十 7。 例 如 输出 一 个 
实数 ,要 得 到 6 位 有 效 数 字 , 即 d 二 6, 则 应 使 w 宇 6 十 7 二 13, 其 格式 可 用 E13.6、E15.6 等 。 

也 有 的 系统 不 打印 出 小 数 点 前 的 数字 "0”, 其 输出 形式 为 : 

.158000E 2 -.7466E 3 .873E 3 


-一 -一 -一 一- 
6 列 4 列 4 列 4 列 3 列 4 现 


AAA 
A BD C 

E 编辑 符 可 以 避免 “大 数 印 错 ,小 数 印 于 ”的 情况 ,并 且 可 以 保证 输出 必要 的 有 效 位 
数 。 如 果 所 用 的 FORTRAN 编译 系统 提供 7 位 有 效 数字 ,可 以 用 E15.7、E16.7 等 ,如 果 系 
统 能 提供 9 位 有 效 数字 ， 可 以 用 E17.9、E18.9 等 ,以 最 大 限度 地 得 到 有 效 数 字 。 当 然 ,d 取 
多 少 > 位 取决 于 程序 的 需 可 而 :- 

用 下 编辑 符 输 出 实 数 的 优点 是 ， 它 能 容纳 任意 大 小 的 数据 ,不必 事 先 估计 数值 的 大 小 ， 
但 它 输出 的 是 指数 形式 ,看 起 来 不 够 直观 清晰。 

说 明 : FORTRAN 没有 提供 专用 于 复 型 数 的 编辑 符 。 由 于 复数 在 内 存 中 是 以 2 个 实数 
的 存储 单元 存储 的 ,在 采用 表 控 输出 时 ,以 一 对 坐标 的 形式 输出 (系统 自动 加 括号 ) 。 如 


COMELEX X oc “GSHUFT\Debuge\l. exe” 

x= (1,2.0) ; \ ; 

PRINT x ,X (1. 000000, 2. 000000) z 

END Press any key to continue 


输出 结果 如 图 7. 1 所 示 。 图 7.1 复数 的 表 控 格式 输出 

厂 采 用 格式 输出 , 则 需要 以 两 个 实数 的 编 
辑 符 来 提供 复数 输出 的 格式 。 例 如 ,如 果 Cl1,C2 已 被 定义 为 复 型 变量 , 且 Cl 二 (1. 2,2. 5)， 
C2 二 (3.0, 一 6.5), 则 可 以 用 下 面 的 格式 轩 出 堵 句 进行 输出 (输出 时 不 加 括号 ): 


PRINT 100, Cl,C2 
100 FORMAT(F10.2,F10.2,El13. 5,E13. 5) 


输出 结果 如 图 7. 2 所 示 。 
“6svSHUPFUYDebugv1-eze” 


| .2 2.DU U. 30000LE+01] -0. 60000L+01 


Tess anv ke vy to cont 1nue 


图 7.2 复数 的 格式 输出 
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7.1.4 DD 编辑 符 


D 编辑 符 用 于 双 精 度数 的 输出 ,D 是 Double Precision( 双 精度 ) 的 第 一 个 字母 。 其 一 般 
格式 为 : 


Dw.d 


wd 的 含义 同 E 编辑 人行 。 硅 D1、D2 已 被 定义 为 双 精 数 变 量 , H Dl 二 1. 378 675 893D 十 02， 
D2 二 1784. 5D 一 03 ,用 输出 语句 ; 
PRINT 10,D1,D2 


10 FORMAT(D18.10,D18.7) 


则 输出 格式 为 
0.1378675893 D+03 0.1784500 D+01 
一 一 一 和 
D1(18 列 ) 


D2(18 列 ) 
D 编辑 符 的 使 用 方法 与 下 编辑 符 相 仿 , 只 是 把 字母 “E” 换 成 了 字母 “D”。 


双 精 度数 据 也 可 以 用 下 编辑 符 指 定 输出 格式 ,可 以 将 上 述 FORMAT 语句 改 为 : 
10 FORMAT(F19.10,F17.7) 


则 输出 格式 为 
137.8675893000 1.7845000 
D1(19 列 ) 


D2(17 列 ) 
但 同样 会 出 现 “ 大 数 印 错 , 小 数 印 丢 ” 的 情况 。 


7.1.5 工 编 辑 符 


Lw 


L 编辑 符 用 于 逻辑 型 数据 的 输出 ,一般 格式 为 : 


L 是 Logical 的 第 一 个 字母 。 如 果 变 量 Ll1、L2 已 定义 为 逻辑 型 , 且 LI1=. TRUE. ， 
L2 王 .FALSE. ,用 下 面 的 FORMAT 语句 : 
PRINT 30,LD],L2,.TRUE. ,. FALSE 
30 FORMAT(LS5,L3,L4,L6) 


则 输出 结果 为 : 
TFT F 
一 一 一 一 一 4 ee 
5 列 3 列 4 列 6 列 


足 取 位 。 


L 编辑 人 符 输 出 的 使 用 规则 为 : 逻辑 值 为 " 真 "时 ,在 输出 时 打印 一 个 字母 工 和 表示 True) ; 
逻辑 值 为 “ 假 ” 时 ,在 输出 时 打印 一 个 字母 F( 表 示 False); 输出 项 不 足 也 位 时 , 左 补 空 
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7.1.6 A 编辑 符 
A 编辑 符 用 于 字符 型 数据 的 输出 。 一 般 格式 为 ; 


hw 


或 

h 
w 为 字段 宽度 。 如 果 变 量 S 已 被 定义 为 字符 型 ,长 度 为 5, 其 值 为 “CHINA”, 则 执行 下 列 
程序 : 


CHARACTER * 5,S 
S = 'CHINR， 
PRINT 20,S 

20 FORMAT(A7) 
END 


S 长 度 为 5, 在 输出 时 指定 的 字段 宽度 为 7, 则 输出 结果 为 . 

CHINA 
字符 向 右 对 齐 。 如 果 把 上 述 FORMAT 语句 中 的 A7 改 为 A3, 则 输出 结果 为 . 

CHI 
即 只 输出 左 ( 前 ) 面 的 三 个 字符 。 

如 果 在 A 后 不 指定 字段 宽度 w, 即 : 

20 FORMAT(A) 
则 表示 按 字 符 变 量 的 实际 长 度 输出 ( 即 按 程序 中 类 型 说 明 语 名 定义 的 该 变量 的 长 度 ) ,输出 
结果 为 : 

CHINA 

表 7. 3 是 用 A 编辑 符 的 输出 结果 。 

表 7.3 A 编 辑 符 的 输出 示例 

前 补 空格 , 占 够 w 位 


上 
让 各 序 定义 长度 久 


7.1.7 撤 号 编辑 符 
撤 号 编 缉 符 用 来 插入 所 需 的 字符 串 。 例 如 , 夺 I 王 123 ,J 王 2345 , 则 


PRINT 10,1,J 
10 FORMAT ('I="',13,'J='"',14) 


下 || 
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输出 格 去 为 : 
T= 123 J = 2345 


如 人 果 输 出 的 字符 串 中 包含 撤 号 , 则 用 两 个 连续 的 撤 号 代表 一 个 要 输出 的 撤 号 字符 。 如 : 


CHARACTER * 10,S 
READ *,S 
PRINT 20,S 
20 FORMAT(A,' IS LI''S STUDENT. ') 
END 


如 条 从 键盘 上 输入 的 值 为 'ZHANG SAN', 则 输出 格式 为 ; 


ZHANG SAN IS LI'S STUDENT. 


7.1.8 X 编辑 符 
X 编辑 符 用 于 在 输出 时 产生 空格 ,或 输出 位 置 向 右 移 动 ， 位。 一般 格式 为 : 


nX 


前 面 用 IE 编辑 人 符 输出 数据 时 ,如 条 字段 宽度 w 给 的 不 合适 ,会 造成 数据 间 没 有 空 
格 .数据 连 成 一 片 难以 区 分 的 情况 。 例 如 : 


PRINT 50, 1,A,B 
50 FORMAT(I3,F6.2,E11.5) 


当 了 = 二 146 ,A 一 124. 32,B 王 1247. 32 时 ,输出 为 : 


146 124.32 0.12473E+04 


OQ 
I A B 


为 了 使 各 数据 能 分 隔 开 ,需要 插入 一 些 空格 。FORTRAN 规定 用 X 编辑 符 产 生 空 格 。 将 上 
述 语 句 改 为 : 
WRITE (*, $50) I, A, B z 
I 
50 FORMAT (1lX, 13, 2X, F6.2, 2X, El1l1.5) 
先 输出 一 个 空格 ,再 输出 了 ,在 输出 I 工 和 输出 A 之 后 ,分 别 输出 两 个 空格 。 其 输出 结果 如 下 所 示 : 


_146 124.32 0.12473E+04 


mm 一 一 ”一 一 一 
I A B 


注意 : 不 要 把 2X 作为 与 A 对 应 的 编辑 符 ,PRINT 语句 中 的 I.A、B 分 别 与 FORMAT 
语句 中 的 13、F6.2、El1.5 编辑 符 相 对 应 。X 编辑 符 不 能 用 来 提供 整数 、 实 数 以 及 其 他 类 型 
数据 的 输出 格式 , 它 的 作用 只 是 插入 若干 个 空格 。 如 上 面 的 输出 语句 , 先 遇 到 “1X”, 输 出 一 
个 空格 ( 即 不 顶 格 写 , 先 空 一 格 , 从 第 二 列 开 始 写 ) ,再 遇 到 13, 它 与 变量 I 对 应 ,输出 1 值 之 
后 ,再 遇 到 “2X”, 再 跳 过 2 列 ( 即 输出 2 个 空格 )， AU 2, 它 与 变量 A 对 应 ,输出 A 值 
之 后 ,再 遇 到 “2X”, 输 出 2 个 空格 ,再 遇 到 E11.5, 它 与 变量 B 对 应 ,输出 B 值 之 后 ,整个 输 
出 语句 就 结束 了 。 
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7.1.9 和 斜 杠 编辑 符 
斜 杠 编辑 符 (/) 的 作用 是 ; 结束 本 记录 的 输出 并 开始 下 一 个 记录 的 输出 。 如 ， 


PRINT 30,1, MA,J,B 
30 FORMAT(I3,F6.1/ 13,F6.1) 
苦 = 二 246 ,A 二 12. 36 ,J 二 35,B 二 173.5, 则 输出 格式 为 ， 
246 12.4 
35 173.5 
注意 : 一 个 PRINT 语句 输出 打印 了 两 行 信息 ,这 是 由 于 FORMAT 语句 中 有 一 人 针 杠 ， 
使 之 产生 两 个 记录 。 如 果 有 两 个 连续 的 斜 
二 6 “FE:\l2\Debur\l0. exe”™ 
杠 , 表 示 输 出 完 第 一 行 后 空 一 行 ,再 输出 第 pp 
行 。 例 如 : 189 


Press any key to continue 
PRINT 10, 'HELLO', 100 | 
10 FORMAT(A,//,15) 


共和 输出 三 行 , 输 出 结果 如 图 7.3 所 示 。 
7.1.10 重复 系数 


重复 使 用 的 编辑 符 可 以 在 其 前 加 一 个 重复 系数 ,其 形式 为 : rIw,rFw.d、rEw.d、rAw， 
rLw 等 ,r 为 重复 系数 。 以 下 两 个 FORMAT 语句 等 价 : 


10 FORMAT(I5,15,F10.2,F10.2,F10.2) 
10 FORMAT(2I5,3F10.2) 


图 7.3 和 斜 杠 编辑 符 的 输出 


如 果 有 以 下 FORMAT 语句 : 
120 FORMAT( I4,2X,F10.2,2X,14,2X,F10.2,2X) 
其 中 加 下 画 线 的 两 组 编辑 符 是 相同 的 ,可 以 只 写 一 次 而 用 重复 系数 使 之 重复 使 用 。 即 写成 : 
120 FORMRAT(2(I4 ,2X,EF10.2,2X)) 
内 括号 内 的 编辑 符 ( 称 为 编辑 符 组 ) 重 复 使 用 两 次 。 
可 变 重 复 系 数 : FORMAT 语句 中 的 重复 系数 除了 可 用 稼 数 表示 外 ,还 可 以 用 循环 变量 
表示 ,其 值 根据 循环 变量 发 生变 化 。 用 循环 变量 做 重复 系数 时 ,该 循环 变量 需要 用 一 对 尖 括 


号 括 起 来 ,其 具体 使 用 可 参见 第 6 章 例 6-15。 如 果 重 复 系 数 为 符号 常量 , 则 该 符号 常量 也 需 
要 用 人 尖 插 号 插 起 来 ,其 具体 使 用 可 参见 第 9 草 例 9-10。 


7.1.11 WRITE(PRINT) 语 句 与 FORMAT 语句 的 相互 作用 


由 以 上 介绍 可 知 , 输 出 记录 的 内 容 是 由 WRITE 语句 和 FORMAT 语句 共同 作用 的 。 
WRITE 语句 提供 输出 的 值 , FORMAT 请 句 提 供 字 符 串 、 空 格 以 及 数据 输出 的 格式 。 
FORMAT 请 句 中 括号 内 的 内 容 称 为 “格式 说 明 ”。 这 两 个 语句 间 的 相互 关系 如 下 。 

(1) WRITE 语句 中 输出 项 的 个 数 与 FORMAT 语句 中 的 I\.F、E、D、L、A 编辑 和 从 的 个 
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数 可 以 相等 也 可 以 不 等 。 如 条 输出 项 的 个 数 少 于 上 述 编 辑 符 的 个 数 , 则 多 余 的 编辑 符 不 起 
作用 (注意 : 上 述 编 辑 符 不 包括 X 编辑 符 和 撤 号 编辑 符 , 下 同 )。 如 ; 
WRITE( *x ,10) I,J 
10 FORMAT(I3,1I4,I15) 
人 
不 起 作用 
在 执行 格式 控制 时 ,对 WRITE 语句 的 输出 项 表 列 和 FORMAT 语句 中 的 格式 说 明 同 时 扫 
描 ,一 一 对 应 。 当 输出 项 表 列 结束 ,而 FORMAT 语句 扫描 到 一 个 上 述 的 编辑 符 时 ,输出 就 
告 结束 。 如 果 FORMAT 语句 扫描 到 一 个 撤 号 编辑 符 或 X 编辑 符 , 则 扫描 继续 下 去 ,直到 
遇 到 非 撤 号 且 非 X 编辑 符 为 止 。 例 如 : 
WRITE( <* ,100) 1,B 
100 FORMAT(I3,2X,F6.2,'END',F8.1) 
‘+ 
要 输出 ”不 起 作用 
若 I=246,B=173. 5, 则 输出 为 . 
246 173.50 END 


(2) 如 果 输 出 项 个 数 多 于 格式 说 明 中 的 编辑 和 从 个 数 , 即 WRITE 语句 的 输出 项 表 列 中 
还 有 未 输出 的 元 素 ,而 格式 说 明 中 的 编辑 符 已 用 完 , 则 重新 使 用 该 格式 说 明 , 但 产生 一 个 新 
记录 。 夺 
I=2406,A= 12.36,J = 35,B= 173.5, 
PRINT 30,I1,A,J,B 
人 
30 FORMAT(I3,F6.1) 
人 
当 扫 摘 变 量 A 后 ,格式 说 明 已 扫描 完毕 ( 见 指 针 第 涉 ), 而 WRITE 语句 中 还 有 应 输出 的 元 
率 , 则 将 格式 说 明 的 指针 重新 移 回 到 其 开头 , 青 往 后 扫描 。 输 出 结果 为 : 
246 12.4 
35 173.5 
即 输出 两 个 记录 。 它 等 价 于 以 下 FORMAT 语句 : 
30 FORMAT( I3,F6.1/ 13,F6.1) 
但 不 等 价 于 下 面 的 FORMAT 请 人 句 : 


30 FORMRT(2(I3,F6.1)) 


因为 这 个 FORMAT 语句 使 输出 的 数据 打印 在 同一 行 上 。 
(3) 如 果 在 格式 说 明 中 包含 有 重复 使 用 的 编辑 符 组 , 则 当 格 式 说 明 用 完 后 再 重新 使 用 
时 ,只 有 最 右面 的 一 个 编辑 符 组 (包括 其 重复 系数 ) 和 它 右面 的 编辑 符 被 重新 使 用 。 如 : 
WRITE( * ,100) I1, 12, 13, I4, 15,16,17,18,19,110 


100 FORMAT(2(13,2X),2(1I4,2X),2(I5,2xX),16) 


人 
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在 输出 完 革 后 ,格式 说 明 已 扫 摘 完毕 , 仍 重 复 使 用 格式 说 明 , 但 只 是 从 最 右面 一 个 编辑 符 组 
开始 ( 见 殴 头 ) 重 复 使 用 编辑 符 ,包括 其 重复 系数 。 

(4) 在 扫描 过 程 中 ,格式 说 明 中 的 各 编辑 符 ( 指 I.F、E、A、L) 都 要 有 相应 的 变量 才能 组 
织 输出 ,而 XX、 撤 号 、 斜 杜 等 编辑 符 不 需要 有 相应 的 输出 变量 而 直接 进行 输出 。 

(5) 可 以 有 “空格 式 说 明 ”, 如 FORMAT( ) ,用 来 输出 一 个 空 行 。 此 时 的 WRITE 语句 
中 不 应 有 任何 输出 量 。 

(6) 员 到 格式 说 明 的 右 插 号 ( 即 最 后 一 个 括号 ) 或 斜 杜 “/” 时 ,结束 本 记录 的 输出 ,但 不 
意味 停止 全 部 输出 。 只 要 输出 项 表 列 中 还 有 未 输出 的 量 , 将 重复 使 用 格式 说 明 或 按 斜 杠 右 
面 的 格式 说 明 组 织 输出 。 

右 插 号 与 斜 杜 “/” 有 一 点 不 同 ， 当 扫描 到 右 括 号 而 输出 表 列 中 已 无 要 输出 的 变量 时 , 输 
出 即 告 结束 。 而 斜 杠 只 表示 结束 本 行 输出 ,即使 此 时 已 无 要 输出 的 变量 ,输出 也 并 未 停止 
它 会 重新 开始 一 个 新 记录 ,直到 遇 到 右 括 号 或 非 X、 非 撤 号 编辑 符 为 止 。 

(7) FORMAT 语句 可 以 和 WRITE 语句 相 邻 ,也 可 以 放 在 程序 的 任何 地 方 〈 在 
PROGRAM 语句 或 子 程序 语句 之 后 .END 语句 之 前 ) ,习惯 上 将 程序 中 全 部 FORMAT 话 
句 集中 放 在 最 前 或 最 后 ,以 使 程序 更 清晰 。 

(8) 用 表 控 格式 输出 时 ,在 WRITE 语句 中 的 输出 项 中 可 以 包含 字符 串 , 如 : 

WRITE( ¥* ,¥*)'I= ”IJ = "JJ 
i 量 应 对 应 FORMAT 语 


WRITE( * ,100)'I= ,I,'J = ',J 
100 FORMAT(A, I3,A,14) 


或 在 格式 说 明 中 用 撤 号 编辑 和 从 包含 字符 串 ,如 : 


WRITE( * ,100)I,J 
100 FORMAT('I= ',I13,2X,'J= ',14) 


【 例 7-1】 对 例 4-3 的 计算 结果 进行 格式 化 输出 。 


程序 编写 如 下 : 

INTEGER A,B,C ! 定 义 整 型 变量 a,b,c 
READ * ,A,B ! 输 入 数据 到 变量 a 和 pb 
C=A+B 1 计算 ab 的 和 ec 

PRINT 100, "C="",A,"+"",B,"= 7C ! 输 出 c 的 值 

100 FORMAT(A, I2,1X,A, 12,1X,A,14) 

END 


程序 运行 结果 如 图 7.4 所 示 。 


“EE:\bookEvwrite\d3z\exzd\D... -|o|x| 


3.4 
C= 了 + 本 = 2? 


Press any key to continue 


图 7.4 例 7-1 运行 结 采 
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Fe 


7.2.1 格式 输入 的 一 般 形 式 


格式 输入 


在 掌握 了 格式 输出 之 后 ,再 学 习 格 式 输入 就 不 困难 了 。 格 式 输入 指 按 指 定 的 格式 输入 
数据 。 一 般 用 READ 语句 和 FORMAT 语句 来 实现 格式 输入 。 


- 般 形 式 为 : 
READ 语句 标号 ,输入 项 表 列 
语句 标号 ”FORMAT( 格 式 说 明 ) 
或 


READ ( * ,语句 标号 ) 输入 项 表 列 
语句 标号 ”FORMAT (格式 说 明 ) 


READ 100,1,A 
100 FORMAT (I5, F6.1) 


一 般 用 “x* ”代表 系统 隐 合 的 输入 设备 ,第 指 键盘 。 例 如 ,可 以 有 : 


输入 时 也 是 使 用 I、F.E、D、L、A、X、 冬 杠 编辑 和 从 指定 输入 数据 的 格式 。 夺 本 例 输入 数 
据 (y 表示 回 车 键 Enter, 下 同 ) 
_12451241.» a 
I A 


(5 列 ) (6 列 》 


即 I 占 5 列 ,A 占 6 列 ,输入 后 I==1245,A==1241.5。 
7.2.2 整数 的 输入 


10 FORMAT (14, I5) 


整数 输入 用 I 编辑 符 , 形 式 同 格式 输出 。Iw 中 的 w 指定 输入 数据 所 占 的 列 数 。 如 : 
READ 10,1,J 


输入 数据 可 以 如 下 : 
_345_ _415 Ng 
I ] 


如 采用 键盘 作 输 入 设备 ,从 一 行 的 第 一 个 字符 开始 依次 输入 上 述 字 符 ,并 按 Enter 键 ， 
则 输入 后 I 二 345 ,J 二 415。 


注意 : 
“G: SHUFEMDebues\SHUFU. exe™ 


(1) 在 规定 的 字段 宽度 内 ,空格 不 起 作用 。 
因此 ,如 果 输 入 ， 

3 4 5 415 | 

34 


i 时 
D0415 


Press any key to continue 


则 工 的 值 是 34, 丁 的 值 是 5415, 见 图 7.5。 因 此 ,最 
图 7.5 整数 的 格式 输入 


好 使 输入 的 数据 在 规定 的 字段 宽度 内 向 右 端 
对 齐 。 
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(2) 符号 包括 在 Ww 宽度 内 。 如 输入 : 
一 23 —450b 
则 得 到 的 工 值 是 一 123, 可 值 是 一 456。 
表 7.4 是 整数 格式 输入 的 例子 。 
表 7.4 整数 的 格式 输入 示例 
一 12 345 只 取 5 列 , 多 余 的 不 起 作用 


7.2.3 实数 .复数 和 双 精 度数 的 输入 

1. 实数 用 下 编辑 符 输入 

有 两 种 形式 。 

(1) 输入 数据 不 市 小 数 点 ,由 系统 按 指定 格式 目 动 加 上 小 数 点 。 如 : 

READ 10,A,B 

10 FORMAT(F6.2,F8.3) 
如 果 输 入 数据 为 : 

A(6 列 ) ”B(8 列 ) 
系统 先 按 Fw. d 中 心 指定 的 字段 蜗 度 截取 数据 ,前 6 列 属 A, 后 8 列 属 B。 然 后 按 4 指定 的 
位 数 确定 小 数 点 位 置 , 则 上 述 数 据 输 入 后 ,A 二 3145. 67,B 王 8675. 432 。 

(2) 输入 数据 可 以 自 带 小 数 点 。 如 果 Fw. 4 中 指定 的 小 数 点 位 置 与 输入 数据 的 小 数 点 
位 置 不 一 致 , 按 “ 日 市 小 数 点 优先 ”的 原则 。 如 对 上 面 的 输入 语句, 输入 以 下 数据 : 

_314. 5678675. 432 
先 取 前 6 列 作为 A, 后 8 列 作 为 B, 注 意 ,日 市 小 数 点 也 占 一 列 。A 的 6 列 中 有 一 位 小 数 , 而 
F6. 2 指定 有 2 位 小 数 , 按 “ 目 市 小 数 点 优先 ”原则 ,A 二 314. 5, 同 理 ,B 二 678675. 4。 

和 月 市 小 数 点 比较 直观 ,输入 时 容易 检查 ,不易 出 错 , 但 必须 保证 数据 在 指定 字段 宽度 内 。 
例如 ,对 上 面 的 输入 ,可 能 用 户 的 原意 是 使 A 一 314. 567 ,但 由 于 第 一 列 输入 了 一 个 空格 ,小 
数 点 又 占 了 一 列 , 因 此 截取 6 列 时 将 小 数 的 第 2、3 位 “67” 截 去 了 。 

在 “日 市 小 数 点 ”的 情况 下 ,Fw.d 中 的 dg 是 不 起 作用 的 ,因此 ,也 可 以 将 4 值 定 为 
0。 如 : 


10 FORMAT(F6.0,F8.0) 


2. 输入 实数 时 可 以 任 选 下 编辑 符 或 EE 编辑 符 ,一 者 作用 相同 
输入 数据 的 形式 可 以 是 小 数 形式 ,也 可 以 是 指数 形式 。 如 采用 指数 形式 输入 数据 而 其 
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数字 部 分 不 带 小 数 点 , 则 按照 Fvw. d (或 Ew. qd) 中 4 的 值 对 其 加 上 小 数 点 。 例 如 : 
READ 10,A,B 
10 FORMAT(F12.3, E12.3) 
输入 以 下 数据 : 


A.B 


78346767.,834676E 十 03 
的 值 都 等 于 7834. 676 ,而 用 的 编辑 符 不 同 ,可 见 F 和 下 编辑 符 是 可 以 互 换 的 。 为 使 用 


方便 ,建议 都 用 下 编辑 和 从 输入。 


输入 的 数据 输入 后 变量 的 什 


表 7.5 是 实数 格式 输入 的 例子 。 
表 7.5 实数 的 格式 输入 示例 
说 明 


135798 1357. 98 


137. 2356 目 市 小 数 点 优先 

256. 7E 十 02 E 和 下 编辑 符 作 用 相同 

237567E 十 03 2375.67X10; ”| 数字 部 分 无 小 数 点 ,根据 F10. 2, 系 统 自动 加 上 小 数 点 
_30 7067 E 和 下 编辑 符 作 用 相同 ,忽略 空格 

7654324 76543.2 只 截取 6 列 


输入 


括号 


述 用 


3. 复数 输入 时 , 按 两 个 实数 输入 

如 果 已 定义 C 为 复 型 数 , 则 ， 
READ 10,C 

10 FORMAT(F6.2,F6.2) 

两 个 实数 : 


246.273465.1 


输入 后 ,C 的 值 为 (246. 27,3465. 1), 即 246. 27 十 3465. 1i。 注 意 , 格 式 输入 时 不 必 输 入 
、 十 ”和 表示 虚 部 的 字母 “1”。 

4. 双 精 度数 用 D 编辑 符 输入 

实际 上 ,在 输入 时 ,D 编辑 从 与 FE 编辑 符 作 用 是 一 样 的 ,可 以 互 换 , 所 以 这 里 不 青 芍 
D 编辑 符 的 输入 。 仍 然 建议 对 实 型 数 都 用 下 编辑 符 输入 。 


7.2.4 逻辑 型 数据 的 输入 


逻辑 型 数据 用 工 编辑 符 输 入 。 
如 果 Ll1、L2 已 定义 为 逻辑 型 变量 , 则 


READ 100,L1, L2 
100 FORMAT(L6, 1L3) 


输入 的 数据 可 以 是 . TRUE. 或 . FALSE. ,也 可 以 是 以 字母 或 下 开头 的 任何 字 


竺 串 。 


表 7.6 是 人 逻辑 型 数据 格式 输入 的 例子 ，。 
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表 7.6 远 辑 型 数据 格式 输入 示例 


.上 AL L4 . FALSE. 


7.2.5 字符 型 数据 的 输入 
字符 型 数据 的 输入 用 A 编辑 符 。 
1. 用 Aw 编辑 符 


CHARACTER SIRL 关 5o5IRZ 关 4SIR3 关 3 
READ 100, SIR1 STR2, STR3 
100 FORMAT(A5, A4, M3) 


输入 的 数据 是 : 

CHINAWANGNEW 
输入 后 ,STR1 二 'CHINA',STR2 二 "WANG',STR3 二 'NEW'。 注 意 : 格式 输入 字符 串 时 不 
必 带 搬 号 ,两 个 字符 稼 量 之 间 也 不 必用 空格 或 逗号 分 隔 。 如 果 改 为 如 下 输入 方式 : 

CHINR ', ' WANG ' ' NEW ' 


则 输入 后 各 变量 的 值 如 下 : 
ca LA 


上 面 例子 中 字符 的 长 度 7 和 Aw 中 的 w 是 相同 的 (1 二 w)。 如 果 它 们 不 同 ( 关 包 )， 
例如 : 


CHARACTER * 4 STR1, STR2, STR3 
READ 100, STR1, STR2, STR3 
100 FORMAT(A5, A4, A3) 
对 STR1 来 说 ,全 mz, 对 STR2 来 说 ,/ 二 w, 对 STR3 来 说 ,Ll 二 w。 本 例 中 1 二 4, 如 果 输 入 以 
下 数据 : 


CHINAWANGNEW 
， + + 


STR1 STR2 STR3 
怎样 进行 处 理 呢 ? FORTRAN 规定 : 
(1) 如 果 /二 w, 在 ww 个 字符 后 面 补 (w 一 站 个 空格 ,然后 送 给 变量 。 因 此 ,STR3 的 值 是 
'NEW _', 
(2) 如 果 /一 mi, 只 取 最 右边 的 ! 个 字符 送 给 变量 (注意 : 不 是 最 左边 的 1 个 字符 ,这 是 和 
表 控 输入 及 字符 型 赋值 语句 不 同 的 ,二 者 取得 是 最 左边 的 /个 字符 )。 今 STR1 的 长 度 为 4 
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而 输入 5 个 字符 ,结果 是 把 HINA 送 给 STR1。 可 以 这 样 理解 : 将 'CHINA' 五 个 字符 从 左 到 
右 一 个 个 地 存 人 到 STR1 中 ,在 存 人 人 'CHIN' 以 后 ,'A' 又 要 挤 进 去 ,其 过 程 见 图 7. 6。 
TTIc] nm 


TT Te ~ mA 
Tea ETIaT。A 


图 7.6 字符 型 数据 的 格式 输入 1 
即 把 最 左边 的 字符 'C' 撞 出 去 了 。 也 就 是 说 将 输入 的 字符 串 中 最 左边 的 (w 一 站 个 字符 挤 出 
变量 的 存储 单元 。 本 例 输入 后 的 结果 如 图 7.7。 


HINIA [IwIAINIG 


NIEIW|_| 
图 7.7 字符 型 数据 的 格式 输入 2 
2. 用 A 编辑 符 


CHARACTER * 4 STR1, STR2, STR3 
READ 100, STR1, STR2, STR3 
100 FORMAT(A,A,A) 


输入 : 


不 规定 ww, 输 入 时 目 动 按 字 符 变 量 的 定义 长 度 截 取 所 需 字 和 从 。 如 .: 


WANGFANGDONG 
STR]I SIR2 SITR3 


由 于 三 个 变量 的 长 度 均 为 4, 故 从 输入 记录 中 为 每 个 变量 截取 4 个 字符 送 给 相应 变量 。 由 
于 用 编辑 符 A 比 用 A w 人 简单 .方便 ,不 易 出 错 , 故 一 般 情 况 下 尽量 用 A 而 不 用 A w, 尤 其 是 
当 字 符 变 量 长 度 改变 时 ,FORMAT 语句 也 不 必 改 变 。 如 字符 型 变量 的 长 度 改 为 10: 
CHARACTER 关 10 STR1, STR2, STR3 

READ 100, STR]1, STR2, STR3 
而 输入 时 所 用 的 FORMAT 语句 仍 为 : 


100 FORMAT(A, A,A) 
7.2.6 对 格式 输入 的 说 明 


READ 100,1,J 
100 FORMAT(1X, I3,2X, 13) 
石 输入: 


_123_ _456 


(1) 格式 说 明 中 的 X 编辑 符 表 示 在 读 输 入 记录 时 “ 跳 过 右 干 列 ”。 如 : 


则 输入 后 I=123,J 王 456。 若 输入 以 下 数据 ; 
123456 789 
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则 第 1 列 被 跳 过 ,I 二 234, 再 跳 过 2 列 ,] 二 789。 

(2) 如 果 输 入 时 ,格式 说 明 已 用 完 , 而 READ 语句 中 还 有 未 输入 数据 的 变量 , 则 重复 使 
用 该 格式 说 明 。 如 : 

READ 100， 工 ,可 及 

100 FORMAT(I3) 
应 输入 三 行 数据 : 

i129 

456 ws 

789 7 
如 果 只 输入 一 行 数据 : 

123456789 7 
则 只 取 前 三 个 数字 ”123? 送 给 变量 工 此 时 格式 说 明 已 用 完 , 遇 到 右 括 号 ,结束 本 记录 的 输入 
(后 面 的 “456789” 不 被 读 入 ) ,要求 从 下 面 记 录 ( 下 一 行 ) 读 入 数据 给 和 下, 应 共 提 供 三 个 输 
A 

(3) 和 斜 杠 编辑 符 表 示 本 记录 输入 结束 ,并 接着 输入 第 二 个 记录 ,下 到 过 到 格式 说 明 的 右 
括号 并 且 已 无 输入 的 变量 为 止 。 如 

READ 10,1,J 

10 FORMAT(I3/ I4) 
应 输入 两 个 记录 : 

123 

4567 kw” 
如 果 FORMAT 语句 改 为 : 

10 FORMAT(I4/) 
和 完 读 入 1, 然后 过 到 格式 说 明 的 “/”, 结 束 本 记录 的 输入 ,而 “/” 后 面 是 一 个 “空格 式 说 明 ”, 所 
以 应 空谈 入 一 个 记录 ,由 于 还 有 未 输入 的 变量 J, 因 此 重复 使 用 该 格式 说 明 , 谈 入 丁 ,再 谈 人 
一 个 记录 ,所 以 共产 生 4 个 记录 : 

1234 


J/ (党 记 录 ) 
5678 必 


7.3 ”在 输入 输出 语句 中 包含 格式 说 明 


FORTRAN 人 允许 不 用 FORMAT 语句 ,而 将 格式 说 明 放 在 WRITE、PRINT 语句 和 
READ 语句 中 。 即 ， 
PRINT ' 格 式 说 明 符 ', 输 出 项 表 列 
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WRITE (输出 设备 , ' 格 式 说 明 符 ') 输出 项 表 列 


和 
READ ' 格 式 说 明 符 ', 输 入 项 表 列 
或 


READ (输入 设备 , "格式 说 明 符 ') 输入 项 表 列 


可 以 将 FORMAT 语句 中 括号 内 的 格式 说 明 放 到 WRITE、PRINT 语句 和 READ 语句 中 即 
可 。 如 : 


WRITE( * ，'(I3，EF6.1) MA 


等 价 于 


WRITE( 关 ,100)M,A 
100 FORMAT(I3,F6.1) 


PRINT 100,M,A 

100 FORMAT(13,F6.1) 

说 明 : 当 格 式 不 复杂 时 ,在 WRITE、PRINT 语句 和 READ 语句 中 指定 输入 输出 格式 
比较 方便 ,但 当 格 式 说 明 比 较 长 时 , 读 写 语句 就 会 很 长 ,看 起 来 不 清晰 ,因此 ,还 是 建议 用 
FORMAT 语句 ,比较 清楚 ,不 易 出 钳 , 将 输入 输出 的 变量 和 输入 输出 的 格式 分 开 在 两 处 , 即 
将 格式 说 明 (FORMAT 语句 ) 集 中 在 一 起 。 如 果 需 要 修改 输入 输出 的 格式 ,只 需要 修改 
FORMAT 语句 即 可 ,不 必修 改 谈 写 语 句 。 

本 章 介 绍 的 格式 输入 输出 规则 繁多 ,一 时 是 记 不 住 的 ,也 不 需要 死记 便 背 ,只 需 记 住 最 
基本 的 内 容 即 可 。 有 关 各 种 规定 应 该 通过 上 机 逐步 掌握 ,必要 时 可 查阅 课本 和 资料 。 实 际 
上 在 程序 设计 中 经 稼 使 用 的 也 是 那些 基本 部 分 。 对 程序 设计 人 员 来 说 ,党 握 格 式 输 入 输出 
是 必要 的 ,和 希望 谈 者 结合 后 面 各 和 曹 的 学 习 , 逐 步 税 握 这 方面 的 内 容 。 


习 圳 7 


1. 写 出 下 列 堵 句 的 输出 结 来 。 
(1) 


PRINT 100, 150,12,1500,22 
100 FORMAT (13,15,13,15.3) 


(2) 

PRINT 10, 456.78, 55.6855, 123450. 6789 
10 FORMAT(3F9.3) 
(3) 


PRINT 10,456.78,55.6855,123450.6789 
10 FORMAT(E9.3,El12.3,E6.3) 


(4) 
PRINT 10,. TRUE. ,. FALSE,. 
10 FORMAT(LS5,L3) 
(5) 
PRINT 10, ‘hello', ‘how are you?', 'hello' 
10 FORMAT(A3, A1l5, A) 
(6) 


PRINT 10, 'hello', 100 
10 FORMAT(5X, A,2xX,13) 


(7) 


PRINT 10, 'hello', 100 
10 FORMAT(A,//,15) 


2. 写 出 下 面 格式 输入 后 变量 的 值 (其 中 _ 表 示 空 格 )。 
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给 人 的 数据 108 123E+?2 


re.2 | on i103 


教学 目标 : 

。 理解 数组 的 概念 ; 

。 掌握 数组 的 说 明 方式 ; 

。 等 握 给 数组 赋 初 值 的 方法 ; 

。 训 练 掌握 一 维 数组 和 二 维 数组 的 存储 规则 ; 
。 熟练 学 握 数组 的 输入 和 输出 方式 。 


数组 是 由 FORTRAN 提供 的 一 种 构造 数据 类 型 ,是 由 类 型 相同 的 一 批 数据 组 成 的 有 序 
集合 。 通 第 我 们 把 数组 中 所 包含 的 元 系 称 为 “市 下 标的 变量 ”或 数组 元 系 。 
在 程序 中 可 以 使 用 说 明 请 句 来 说 明 数 组 。 例 如 : 


INTEGER A(5) 


以 上 说 明博 句 说 明 A 是 一 个 数组 , 它 由 5 个 整 型 数组 元 系 组 成 。 

前 面 各 草 中 已 经 介绍 过 FORTRAN 程序 中 所 能 使 用 的 各 种 基本 数据 类 型 ,它们 是 整 
型 \ 实 型 双 精 度 型 . 复 型 .逻辑 型 和 字符 型 。 由 相应 的 类 型 说 明 语 句 所 说 明 的 每 个 变量 都 在 
内 存 中 占有 一 个 独立 的 存储 单元 。 例 如 下 面 的 说 明 请 句 . 


INTEGER Al, A2, A3, A4, A5 


说 明了 Al、A2、A3、A4、A5 这 5 个 变量 是 整 型 变量 ,每 个 变量 在 内 存 中 都 占有 一 个 存放 整 
数 的 存储 单元 ,这 5 个 变量 所 代表 的 5 个 存储 单元 在 内 存 中 的 位 置 是 彼此 独立 、 互 不 相关 
的 。 图 8. 1(a) 是 这 5 个 变量 在 内 存 中 位 置 的 示意 图 。 


(a) 变量 A1、A2、A3、A4、 A5 的 存储 示意 区 


A( Ac A(3) A(4) Al5) 


(b) A 数 组 5 个 元 素 的 存储 示意 图 
图 8.1 变量 和 数组 的 存储 示意 图 


如 采 想 要 从 键盘 (终端 ) 谈 人 5 个 数 , 放 到 这 5 个 存储 单元 中 , 则 需要 用 以 下 输入 声 句 : 


READ* , Al, M2,N3,M4,A5 
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相对 于 简单 变量 ,数组 是 另外 一 种 使 用 内 存 的 方法 , 它 可 以 用 来 分 配 一 片 连续 的 内 存 空 
间 。 例 如 上 面 所 举 的 A 数组 , 它 由 5 个 整 型 元 素 组 成 , 它 的 每 个 元 素 当 然 也 在 内 存 中 占用 
一 个 存储 单元 。 与 简单 变量 A1、A2、A3、A4、A5 不 同 的 是 ,A 数组 的 这 5 个 存储 单元 在 内 
存 中 是 一 个 接 一 个 排列 彼此 紧密 相 邻 的 。 数 组 名 A 是 这 5 个 存储 单元 的 总 名 字 ,数组 A 
的 5 个 存储 单元 的 排列 如 图 8.1(b) 所 示 。 同 一 个 数组 中 的 各 个 元 对 用 不 同 的 下 标 来 区 别 ， 
它们 的 表示 形式 为 A(1)、A(2)、A(3)、A(C4)、A(5) ,下 标 紧 跟 在 数组 名 后 的 一 对 圆 括号 内 。 
在 内 存 中 ,A(2) 元 素 的 位 置 紧 挨 在 A(1) 之 后 ,A(3) 元 素 的 位 置 紧 挨 在 A(2) 之 后 ,其 他 以 此 

可 以 看 出 ,与 前 面 各 章 所 使 用 的 简单 变量 不 同 的 是 ,一 个 变量 只 能 保存 一 个 数值 ,而 一 
个 数组 则 可 以 用 来 保存 多 个 数值 。 因 此 ,在 处 理 大 量 数据 时 ,数组 是 不 可 缺少 的 工具 。 

【 例 8-1】 读 和 信 5 名 学 生 一 门 课 的 成 绩 , 计 算 平 均 分 和 最 高 分 ,并 打印 每 名 学 生 的 成 绩 
与 平均 分 的 差 值 。 

方法 1: 用 简单 变量 来 实现 

定义 5 个 变量 来 保存 5 名 学 生 的 成 绩 。 程 序 编写 如 下 : 


REAL G1, G2, G3, G4, G5, AVE, MAX 
READ* , G1,G2,G3,G4,G5 

AVE= ( Gl+G2+G3+G4+G5)/5 
MAX = G1 

IF(G2 > MAX) MAX = G2 

IF(G3 > MAX) MAX 
IF(G4 > MAX) MAX 
IF(G5 > MAX) MAX = G5 

PRINT * ,AVE, MAX, G1 — AVE, G2 — AVE, G3 ~ AVE, G4 — AVE, G5 — AVE 
END 


可 以 看 出 ,上 述 程 序 对 于 处 理 少 量 的 数据 还 不 算 太 烦琐 ,如 果 数 据 量 很 大 (如 要 找 100 名 
学 生 某 门 评 成 绩 的 最 高 分 ), 程 序 的 元 长 烦琐 程度 可 想 而 知 。 可 对 程序 进行 改进 : 本 例 中 找 最 
大 值 的 比较 过 程 是 重复 的 ,根据 前 面 学 过 的 循环 的 合 义 ,本 例 可 以 采用 循环 结构 进行 优化 。 
方法 2: 用 循环 结构 来 实现 


REAL:; GRADE, SUM, AVE, MAX 
SUM=0 

MAX=0 

人工 三 工 

READ x , GRADE 

SUM = SUM + GRADE 

ENDDO 

AVE = SUM/5 

DOI=1,5 

READ x* , GRADE 
IF(GRADE > MAX) MAX = GRADE 
PRINT * , GRADE — AVE 
ENDDO 

PRINT * , MAX 

END 
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可 以 看 出 ,方法 2 可 以 解决 学 生 数 据 量 很 大 的 情况 ,如 对 100 名 和 学生 ,可 以 只 修改 循环 
变量 的 终 值 ,并且 对 学 生 的 成 绩 也 只 需要 一 个 变量 ,程序 的 通用 性 和 灵活 性 都 增加 了 。 但 是 
又 出 现 了 新 间 题 : 上 面 的 两 个 循环 中 都 需要 输入 每 个 学 生 的 成 绩 , 一 是 增加 了 重复 输入 的 
工作 量 , 二 是 两 次 输入 的 成 绩 必 须要 一 一 对 应 , 极 易 出 错 。 下 面 引 入 数组 解决 该 问题 。 

方法 3: 用 数组 来 实现 

PRRRMETER(N = 5) 

REAL G(N), AVER ! 定 义 6G 数组 

SUM= 0 

MRAX = 0 

DOI=1,N 

READ *, G(I) ! 输 入 成 绩 并 存 人 6 数组 

SUM= SUM + G(I) ! 求 成 绩 之 和 

END DO 

AVER = SUM /N ! 求 平均 成 绩 

DOI=1,N 

PRINT * ,G(I) — AVER ! 输 出 成 绩 与 平均 成 绩 之 差 

END DO 

PRINT x* , MAX 


显然 ,方法 3 不 但 具有 方法 2 的 灵活 性 .通用 性 ,而 且 避 免 了 重复 输入 的 情况 ,在 三 种 方 
法 中 是 最 优 的 。 

通过 例 8-1 可 以 看 到 ,数组 的 使 用 将 使 程序 变 得 人 简洁、 灵活 、 易 懂 , 它 是 程序 设计 中 一 种 
十 分 有 用 的 工具 。 数 组 的 使 用 可 以 使 许多 复 灯 的 算法 得 以 实现 ,这 些 算法 用 人 简单 变量 将 难 
以 甚至 无 法 实现 。 


8.1 数组 的 概念 


数组 是 由 类 型 相同 的 一 批 数据 构成 的 有 厅 集 合 。 每 个 数组 必须 有 一 个 数组 名 ,数组 名 
的 命名 规则 和 简单 变量 的 命名 规则 相同 。 

例如 ,10 名 学 生 的 成 绩 组 成 一 个 数组 G,G 为 数组 名 ,每 个 学 生 的 成 绩 可 分 别 表 示 为 : 

G(1),G(2),G(3) ,GCTD ,* ,G(10) 

又 如 ,3 个 班 (每 班 5 人 ) 的 学 生成 绩 可 以 组 成 一 个 数组 S,S 为 数组 名 ,每 名 学 生 的 成 绩 
可 分 别 表示 为 : 

S(Ty1)S(1.2)S(1 ,3)S(1,.4)S(1 ,5) 

S(2,1)8(2,2)S(2,3)S(2,4)S(2,5) 

SC(3,1)S(3,2)S(3,3)S(3,4)S(3,5) 

使 用 数组 时 注意 以 下 几 点 。 

(1) 数组 名 代表 具有 同一 类 型 的 一 批 数据 ,而 前 面 学 习 的 简单 变量 名 只 代表 一 个 数据 。 

(2) 数组 中 的 每 一 个 数据 称 为 数组 元 素 , 不 同 的 数组 元 素 其 下 标 不 同 , 下 标 放 在 紧 跟 在 
数组 名 后 的 一 对 圆 括 号 内 ,所 以 数组 元 素 也 叫做 “ 带 下 标的 变量 ”。 

(3) 具有 一 个 下 标的 数组 称 为 一 维 数组 ,具有 两 个 下 标的 数组 称 为 二 维 数 组 ,通常 把 具 
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有 两 个 或 两 个 以 上 下 标的 数组 统称 为 多 维 数组 。FORTRAN95 最 多 可 以 定义 七 维 数组 。 
前 面 例子 中 ,数组 G 为 一 维 数组 ; 数组 S 为 二 维 数组 ,其 中 第 1 个 下 标 表示 班级 ,第 2 个 下 
标 表 示 学 生 的 编号 ,如 S(2,4) 表 示 二 班 第 4 名 学 生 的 成 绩 。 


8.2 数组 的 说 明 


数组 必须 先 定 义 ,再 人 使用。 编程 时 用 到 的 每 一 个 数组 都 必须 先 对 其 进行 定义 , 即 定义 该 
数组 的 名 字 .类 型 . 维 数 及 大 小 (元 素 个 数 ) ,以 便 编 译 系统 给 数组 分 配 相 应 的 存储 单元 。 即 
对 用 到 的 数组 要 ”" 先 定义 ,再 使 用 ”。 

FORTRAN95 中 定义 数组 的 方式 有 三 种 ,分 别 为 DIMENSION 语句 、 类 型 说 明博 句 、 
同时 使 用 类 型 说 明 符 和 DIMENSION 语句 。 

8.2.1 用 DIMENSION 语句 定义 数组 
一 般 格式 为 : 
维 说 明 符 。 下 界 为 1 时 ， 
可 以 省 略 。 下 界 < 上 界 ， 
并 且 只 能 是 整 型 表达 式 
DIMENSION ”数组 名 (下 标 下 界 : 下 标 上 界 ，.…) ，.… 
| 数组 说 明 符 
数组 说 明 符 定义 了 数组 名 、 数 组 的 维 数 和 大 小 。 其 中 数组 的 维 数 由 维 说 明 符 的 个 数 确 
。 维 说 明 符 至 少 有 一 个 ,最 多 七 个 。 数 组 的 大 小 即 数组 的 元 素 个 数 。 
如 ， 


DIMENSION G(10) ,Ss(3,5) 


py 


有 
DIMENSION G(1:10) ,S (1:3,1:5) 


该 语句 定义 了 一 个 包含 10 个 元 素 的 一 维 数组 G 和 包含 3X5 王 15 个 元 素 的 二 维 数组 S。 

使 用 DIMENSION 语句 定义 数组 时 应 注意 以 下 几 点 。 

(1) DIMENSION 语句 是 非 执 行 语 句 , 必 须 放 在 程序 单位 的 所 有 可 执行 语句 之 前 。 

(2) DIMENSION 语句 定义 数组 时 不 能 指明 数组 的 类 型 。 数 组 类 型 的 确定 与 变量 一 
样 , 有 下 列 三 种 方式 。 

QD 如 无 特别 说 明 ,数组 的 类 型 按 “I-N 规则 ?来 确定 , 即 根据 数组 名 第 一 个 字母 来 确定 。 
例如 ,语句 


DIMENSION A({10),N(10:15),W(2,3) 


定义 A 为 包含 10 个 元 素 的 一 维 实 型 数组 ,N 为 包含 6 个 元 素 的 一 维 整 型 数组 ,W 为 包含 6 
个 元 素 的 二 维 实 型 数组 。 
@ 在 DIMENSION 语句 之 后 可 以 用 类 型 说 明 语 句 说 明 数 组 的 类 型 。 例 如 ,语句 组 
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DIMENSION A{(1:10),N(10:15),B(—5:0)},M(—1:1,0:2,0:3),NAME(1:30) 
REAL A,N 

INTEGER B,M 

CHARACTER 关 8 NAME 


定义 A 和 NN 为 一 维 实 型 数组 ,B 为 一 维 整 型 数组 , M 为 三 维 整 型 数组 (包含 36 个 数组 元 
素 ) ,NAME 为 一 维 字 符 型 数组 。 

应 注意 ,在 类 型 说 明 语句 中 只 能 用 数组 名 ,而 不 需要 重复 写 维 数 说 明 符 。 

G) 在 DIMENSION 语句 之 前 可 以 用 IMPLICIT 语句 说 明 数 组 的 类 型 。 例 如 : 


IMPLICIT REAL(N,M), INTEGER(A— D) 
DIMENSION A(1:10),N(10:15) 


定义 A 为 一 维 整 型 数组 ,N 为 一 维 实 型 数组 。 
8.2.2 用 类 型 说 明 语 名 定义 数组 


一 般 格式 为 : 
类 型 说 明 符 数组 名 (下 标 下 界 : 下 标 上 界 ，…),，… 
如 ; 


REAL A(1:10),N(10:15),W(1:2,1:3) 

INTEGER B( — 5:0},M(—1:1,0:2,0:3) 

CHARACTER *x 8 NAME(1:30),C(5,4)* 10 

使 用 类 型 说 明 语 句 定 义 数 组 时 应 注意 以 下 几 点 。 

(1) 用 类 型 说 明 语 句 定 义 数组 时 ,说 明博 句 必 须 放 在 了 所 有 可 执行 语句 之 前 。 
(2) 一 个 数组 定义 语句 中 可 以 定义 多 个 数组 ,它们 之 间 用 去 号 隅 开 。 

(3) 数组 名 在 程序 中 只 能 定义 一 次 , 且 不 能 与 程序 中 的 变量 同名 。 

(4) 定义 数组 时 ,必须 明确 数组 的 大 小 。 


8.2.3 同时 使 用 类 型 说 明 符 和 DIMENSION 语句 定义 数组 


一 般 格式 为 : 
类 型 说 明 符 ,DIMENSION( 下 标 下 界 : 下 标 上 界 , …): :数组 名 [,，… ] 
如 ， 


INTEGER, DIMENSION(10).. A,N,W(2,3) 


定义 A 和 NN 为 包含 10 个 元 系 的 一 维 整 型 数组 ,W 为 包含 6 个 元 取 的 二 维 整 型 数组 ，。 
8.3 给 数组 赋 初 值 


8.3.1 使 用 数组 赋值 符 赋 初 值 
一 般 格式 为 : 
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数组 名 = (/ 取 值 列表 /) 


其 中 取 值 列表 可 以 是 类 型 相同 的 和 常量、 变量、 函数 、 表 达 式 或 隐 售 DO 循环 ,它们 之 间 用 逗号 
例如 ,给 一 维 数组 A、B 赋值 并 输出 。 
程序 编写 如 下 : 


INTEGER A(5), B(5) 
K=1 

A= (/1,3,k+ 4,7,9/) 
B= (/(I,I=2,10,2)/) 
PRINT * ,A 

PRINT * ,B 

END 


程 友 运 行 结 果 如 图 8. 2 所 示 。 


1 
本 4 


Press any key to continue 


8.2 用 数组 赋值 行 给 数组 赋 初 值 示 例 


再 如 : 


LOGICAL L(3) 
K= 89 
L= (/.TRUE., K+1>K, .FALSE..AND..TRUE. /) 
WRITE( * ,10) (L(I),I=1,3) 
10 FORMAT(1X, 3L3) 


END 
程序 箱 出 绪 采 为 ( 口 表 示 空 格 ): 
ODOTODTOOr 


8.3.2 用 DATA 语句 给 数组 赋 初 值 

DATA 语句 是 专门 用 来 给 变量 .数组 和 数组 元 素 赋 初 值 的 语句 。 

DATA 语句 给 数组 赋 初 值 的 一 般 格 式 如 下 : 

DATA 数组 名 /常量 表 / 数 组 名 /常量 表 /，… 
其 中 数组 名 还 可 以 是 数组 元 素 名 和 隐 合 DO 人 循环。 和 营 量 表 就 是 要 赋 的 初 值 ,可 以 是 和 常量 或 
符号 常量 ,也 可 以 用 缩写 形式 rx*xc( 其 中 cc 是 常量 或 符号 常量 ,r 代表 常量 cc 使 用 的 次 数 )。 


INTEGER A(5) 
DATA A/1,2,3,4,5/ 
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通过 DATA 语句 给 数组 A 中 元 系 分 别 赋 值 为 A(1)==1.A(2)= 一 2、.A(3)==3、A(4)=4、 
A(5) 一 5。 

再 如 : 

REAL PP(6) 

COMPLEX x* 8 LPP 

INTEGER KKJ(500) 

DATA PP, LPP/6 * 0, (8.0, -89)/ 

DATA (KKJ(I),I=1,100)/100 * 10/, (KKJ(I),I= 101,400)/300 * 0/,& 

(KKJ(I),I= 401,500)/100 * 50/ 

使 用 DATA 语句 给 数组 赋 初 值 时 应 注意 以 下 几 点 。 

(1) DATA 语句 的 常量 表 中 可 以 使 用 星 号 “x* ”来 表示 数据 的 重复 。 例 如 : 

INTEGER B(4) 

DATA B/4 x* 5/ 
此 语句 会 把 B 数组 的 4 个 元 系 均 赋值 为 5。“* ”前 的 数字 称 为 重复 系数 ,重复 系数 必须 为 
整数 。 

(2) DATA 语句 中 可 以 使 用 隐 含 DO 循环 来 给 数组 中 的 部 分 元 系 赋 初 值 。 例 如 

INTEGER A(1:10) 

DATA (A(I),I=1,5)/1,3,5,7,9/, (A(J),J=6,10)/2,4,6,8,10/ 
此 DATA 语句 给 A 数组 中 前 5 个 元 素 分 别 赋 初 值 1、3、5、7、9, 后 5 个 元 素 分 别 赋 初 值 2、4、 
6、8、10。 

(3) 当初 值 表 中 的 初 值 类 型 和 对 应 的 对 象 类 型 不 一 致 时 , 编 详 系统 月 动 将 初 值 的 类 型 
转化 为 对 应 对 象 的 类 型 ,再 进行 赋值 。 例 如 : 

INTEGER A(2) 

DATA A/1.5,2.5/ 
编译 系统 会 完 将 1.5、2.5 取 整 后 再 给 数组 A 赋值 , 即 A(G1) 王 1、A(2) 王 2。 

(4) DATA 语句 是 非 执 行 语句 ,可 以 出 现在 程序 中 说 明 语 句 之 后 、.END 语句 之 前 的 任 
意 位 置 。 它 的 作用 是 给 编 详 系 统 提 供 信 息 , 在 程序 编 详 阶 段 赋 初 值 。 一 旦 程序 开始 执行 ， 
DATA 语句 即 失 去 作用 。 


8.4 对 数组 的 操作 


8.4.1 对 数组 元 素 的 操作 
数组 必须 先 定 义 , 再 使 用 。 对 数组 元 素 的 操作 即 对 数组 元 素 的 引用 。 


一 般 格 式 为 : 
数组 名 (下 标 ,[ 下 标 ], … ) 
例如 : 


INTEGER A(2,2),B(5) 
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A(1,1)=10 ! 数 组 A 中 的 第 1 个 元 素 赋 值 为 10 
DOI=1,5 ! 数 组 B 中 的 5 个 元 素 均 赋值 为 3 
B(I)=3 

ENDDO 


数组 元 系 引 用 时 要 注意 以 下 两 点 。 

(1) 数组 名 后 面 的 下 标 为 整 型 ,如 果 不 是 整 型 , 则 月 动 取 整 之 后 再 使 用 。 

(2) 每 个 下 标的 值 必须 落 在 相应 的 下 标 下 界 到 下 标 上 界 之 间 。 如 上 述 A 数组 ,如 果 引 
用 数组 元 素 A(2,3) 则 会 发 生 错 误 。 
8.4.2 数组 的 整体 操作 

FORTRAN95 人 允许 对 数组 进行 整体 操作 ,此 时 用 数组 名 代表 整个 数组 。 例 ; 


INTEGER A(2,2),B(5) 


A=10 ! 数 组 A 中 的 所 有 元 素 赋 值 为 10 
B=3 ! 数 组 B 中 的 所 有 元 素 赋值 为 3 
还 可 以 有 以 下 引用 方式 。 
(1) 当 数 组 A 和 B 维 数 大 小 相同 时 ， 
A=B ! 将 B 数 组 中 同一 位 置 元素 的 值 对 应 赋值 给 A 数组 对 应 元 素 


(2) 当 数 组 A、B.C 维 数 大 小 相同 时 。 


A=B+C ! 将 B 和 C 数 组 同样 位 置 的 元 素 值 相 加 所 得 的 值 赋值 给 A 数组 对 应 元 素 

A=B-C ! 将 B 和 C 数 组 同样 位 置 的 元 素 值 相 减 所 得 的 值 赋值 给 A 数组 对 应 元 素 

A=BxC ! 注 意 不 每 于 和 矩阵 的 相 乘 ,而 是 A(I,J) = B(I,J) * C(I,J) ,将 B 和 C 数 组 同样 位 置 的 元 素 
值 相 乘 所 得 的 值 赋值 给 A 数组 对 应 元 素 

A=B/C  ! 将 B 和 CcC 数 组 同样 位 置 的 元 素 值 相 除 所 得 的 值 赋 给 A 数组 对 应 元 素 


其 他 计算 方式 相同 ,不 再 一 一 袭 述 。 
8.4.3 数组 局 部 引用 
除了 可 以 对 数组 进行 整体 操作 外 ,还 可 以 对 数组 局 部 进行 操作 。 


例如 : 

INTEGER A(6) 

A(3:5)=0 ! 将 A(3) .A(4) .A(5) 赋 值 为 0, 其 他 元 素 值 不 变 
A(1:6:2)=3 ! 将 A(1) .A(3) .A(5) 赋 值 为 0, 其 他 元 素 值 不 变 


其 中 ,A(3:5) 和 A(l1:6:2) 是 数组 元 素 的 三 元 表达 式 ,3:5 的 含义 是 从 3 变化 到 5, 每 次 
增加 1, 同样 1:6:2 的 含义 是 从 1 变化 到 6, 每 次 增加 2。 

数组 元 系 三 元 表达 式 的 一 般 形 式 可 写 为 : 

初 值 : 终 值 : 步 长 

通过 三 元 表达 式 可 以 引用 数组 的 一 部 分 (数组 片段 )。 可 以 看 出 ,对 数组 的 局 部 引用 有 
点 类 似 于 隐 含 循环 。 

例如 : 

(1) B(4:6) = A(1:3) ! 相 当 于 B(4) = AR(1); B(5) = A(2); B(6) = R(3) 
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(2) A(1:10) = A(10:1:—1) ! 使 用 隐 含 循环 的 方法 将 数组 R(1) 一 A(10) 的 内 容 翻 转 
(3) INTEGER A(3,4) 
DATA A/1,2,3,4,5,6,7,8,9,10,11,12/ 
PRINT * ,A(1:3:2,2:4:2) ! 输 出 为 : 4 6 10 12, 请 读者 自行 验证 
引用 数组 局 部 时 要 注意 以 下 两 点 。 
(1) 赋值 号 两 边 的 数组 元 系数 目 要 一 样 多 。 
(2) 同时 使 用 多 个 隐 仿 循环 的 时 候 , 低 维 数 的 循环 可 以 看 作 是 内 层 循环 ,高 维 数 的 循环 
可 以 看 作 是 外 层 循环 ,形成 循环 租 套 。 


8.4.4 WHERE 命令 


WHERE 命令 是 FORTRAN95 新 添加 的 功能 ,用 来 取出 部 分 数组 的 内 容 进 行 设置 。 
WHERE 命令 可 以 通过 逻辑 判断 来 引用 数组 的 一 部 分 。 

例如 , 当 数 组 A 和 B 维 数 大 小 相同 时 ,有 以 下 程序 段 将 A 数组 中 大 于 3 的 元 素 值 赋值 
给 对 应 的 也 数组 元 素 ( 位 置 相 同 的 元 素 ) 。 


INTEGER A(5),B(5) 
DATA A/1,2,3,4,5/ 


WHERE(A> 3) ! 执行 后 B(1) = 0,B(2) =0,B(3)=0,B(4) = 4,B(5) = 
B=A 
END WHERE 
-功能 通过 引用 数组 元 系 也 可 以 完成 ,可 以 编写 以 下 程序 段 : 
DOI=1,5 
IF(A(I)> 3)B(I) = A(I) 
ENDDO ! 执行 后 B(1) = 0,B(2) = 0,B(3) = 0,B(4) = 4,B(5)=5 


虽然 执行 结果 相同 ,但 用 WHERE 命令 对 数组 进行 操作 比较 简单 ,执行 起 来 速度 较 快 。 

WHERE 命令 的 使 用 与 IF 有 点 类 似 , 当 程序 模块 只 有 一 个 可 执行 语句 时 ,可 以 将 这 个 
语句 写 在 WHERE 后 面 ,省 略 ENDWHERE。 

如 上 例 可 以 写成 : 


WHERE (A>3)B=A ! 与 IE 相似 


使 用 WHERE 时 应 注意 以 下 几 点 。 
(1) WHERE 是 用 来 设置 数组 的 ,所 以 它 的 模块 中 只 能 出 现 与 设置 数组 相关 的 命令 。 
(2) WHERE 中 所 使 用 的 数组 必须 是 同样 维 数 大 小 的 数组 。 
(3) WHERE 命令 还 可 以 配合 ELSEWHERE 来 处 理 逻 辑 不 成 立 的 情况。 例如 : 
INTEGER A(S5),B(5) 
DATA A/1,2,3,4,5/ 
WHERE (A> 3) 
B=1 ! 将 与 A 数组 中 值 大 于 3 的 元 素 对 应 位 置 上 的 B 数 组 元 素 赋值 为 1 
B=2 ! 将 与 六 数组 中 其 他 元 素 对 应 位 置 上 的 B 数 组 元 素 赋 值 为 2 


END WHERE 


绪 休 为 B(1) 王 2,B(2) 一 2,B(3) 一 2,B(4) 王 1,B(5) 王 1。 
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(4) 使 用 WHERE 命令 可 进行 多 重 判 断 , 只 要 在 ELSE WHERE 后 接 逻 辑 判断 即 可 。 
例如 : 


WHERE (A<2) 

B=1 

ELSE WHERE(A> 4) 

B=2 

ELSEWHERE 1A(I)>=2 并且 A(I)<=4 的 部 分 
B=3 

END WHERE, 


(5) WHERE 可 以 上衣 套 使 用 。 例 如 : 


WHERE(A<S5) 
WHERE (A/ = 2) 
B= 3 
ELSEWHERE 
B=1 

END WHERE 

ELSEWHERE 
B=0 


8.4.5 FORALL 命令 


FORALL 是 FORTRAN95 添加 的 功能 , 它 也 可 以 看 成 是 一 种 使 用 隐 含 循环 来 引用 数 
组 的 方法 ,功能 更 强大 。 例 如 : 

OD INTEGER :: A(5) 
FORALL (I= 1:5) 1 A(1) 三 A(2) 三 及 (3) 三 A(4) = A(5) 三 5 
A(I)=5 
END FORALL 

(2) INTEGER :: A(5) 
FORALL(I = 1:5) 1 A(1) = 1,A(2) = 2,A(3) = 3, A(4) = 4, 及 (5) = 5 
R(I) = 工 
END FORALL 

FORALL 命令 的 一 般 格 式 为 : 

FORALL (表达 式 1 [ ,表达 式 1 [, 表 达 式 1...]], 条 件 ) 


END FORALL 


使 用 FORALL 时 应 注意 以 下 几 点 。 

(1) FORALL 中 的 表达 式 是 用 来 赋值 数组 下 标 范 围 的 值 。 如 FORALL(CI=1:5) 中 的 
I 二 1:5 就 是 一 个 表达 式 。 例 如 

INTEGER .. 有 (5 ,5) 

FORALL (I=1:5:2,J=1:5) ! 二 维 数组 可 以 用 两 组 表达 式 

A(I,J) = I+J 

END FORALL 
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结 末 为 : 
2 35 $6 
0 0 0 0 0 
4 5 6 7 8 
0 0 0 0 0 
6 7 8 9 10 


(2) 条 件 跟 WHERE 命令 中 使 用 的 条 件 判 断 类 似 , 可 以 用 来 限制 FORALL 程序 模块 
中 只 作用 于 数组 中 符合 条 件 的 元 素 ,还 可 以 做 其 他 限制 。 例 如 : 


(D FORALL (I1=1:5,J=1:5,A(L,J)<10) ! 只 处 理 尺 中 小 于 10 的 元 素 
A(I,J) = 1 
END FORALL 
(2 FORALL (IT=1:5,J=1:5, 工 == 了) ! 只 处 理 I== 了 的 元 素 , 即 主 对 角 线 上 的 元 素 
A(I,J) = 1 
END FORALL 
(3) FORALL(I=1:5,J=1:5,((I>J) .AND. A(1,J)>0)) 
! 可 赋值 多 个 条 件 , 这 里 只 处 理 二 维和 矩阵 的 下 三 角 部 分 且 A(I,J)>0 的 元 素 
A{I,J) = 1/A(I,J) 
END FORALL 


(3) 只 有 一 个 可 执行 语句 的 时 候 , 可 以 省 略 END FORALL, 写 在 同一 行 。 如 : 
FORALL (I1=1:5,J=1:5,A(I,IJ)/=0) A(I1,J) = 1/A(1,J) 


(4) FORALL 也 可 以 多 层 散 套 , 但 里 面 只 能 出 现 和 设置 数组 值 相关 的 程序 命令 。 还 可 
以 在 FORALL 中 使 用 WHERE, 但 是 WHERE 中 不 可 以 使 用 FORALL。 
(1) FORALL (I= 1:5) 
FORALL (J = 1:3) 
A(I,J) = 1 
END FORALL 
FORALL (J = 4:5) 
A(I,J) = 2 
END FORALL 
END FORALL 
(2) FORALL (I=1:5) 
WHERE (A(:,I1) /=0) 
Al:, I) =1.0/A(:, I) 
END WHERE 
END FORALL 


8.5 数组 的 存储 规则 


一 个 数组 不 管 定 义 成 什么 “形状 ”( 指 维 数 跟 大 小 ) , 它 的 所 有 元 素 都 是 分 布 在 计算 机 内 
存 一 片 连续 的 存储 单元 中 。 
8.5.1 一 维 数组 的 存储 规则 

一 维 数组 是 最 简单 的 情况 。 其 元素 在 内 存 中 的 排列 位 置 同 数组 元 素 的 顺序 , 即 按照 下 
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标 由 小 到 大 的 顺序 进行 排列 。 


例如 : 
INTEGER S(5) 
数组 S 在 内 存 中 的 连续 排列 情况 为 : SC1) 一 S(2) 一 S(3) 一 SC(4) 一 S(C5) ,如 图 8.3 所 示 。 
如 果 定 义 成 以 下 类 型 ， s(1) SC) SG) Ss(4) 8s65) 
INTEGER S( 一 1:3) 

则 数组 S 在 内 存 中 的 连续 排列 情况 为 : SC 一 1) 一 SC0) 一 图 8.3 一 维 数组 的 存储 


SC(1)—S(2)—S5(3), 
8.5.2 二 维 数组 的 存储 规则 


二 维 数 组 按 列 存储 。 二 维 数 组 的 “形状 ”可 看 成 是 由 一 组 数据 构成 的 二 维 表格 或 矩阵 。 
数组 元 系 的 第 1 个 下 标 值 表示 该 元 系 在 表格 中 的 行 号 ,第 2 个 下 标 值 表示 该 元 素 在 表格 中 
的 列 号 。 

例如 : 


INTEGER A(3,4) 


二 维 数 组 A 的 “形状 ”可 看 成 如 下 二 维 表格 ， 


巨人 1Y A(1,3) A(1,4) 
A(2,1) A(2,3) A(2,4) 
A(3,1) A(3,2) A(3 3 A(3 s 生 ) 


二 维 数组 的 存储 结构 是 按照 表格 或 矩阵 的 列 来 存放 的 , 即 二 维 数 组 按 列 存储 。 也 就 是 
说 ,二 维 数组 存放 在 内 存 时 ,会 完 放 入 第 1 列 中 的 元 系 , 第 1 列 的 元 系 存 放 完 了 再 人 存放 第 2 
列 的 元 系 , 以 此 类 推 。 数 组 A 的 逻辑 结构 (二 维 表格 形式 ) 和 存储 结构 如 图 8. 4 所 示 。 
出 到 


2) 
1 


2 和 结 风 “和 2-AGD | AG5 | AG3) AG) 
EN 


8.4 二 维 数 组 的 存储 


8.5.3 三 维 数组 的 存储 规则 
三 维 数组 的 “形状 > 可 看 成 是 由 多 页 相同 结构 的 二 维 表格 来 构成 的 。 数 组 元 素 的 第 3 个 
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下 标 值 表示 该 元 系 所 在 页 号 ,第 1 个 下 标 值 表示 该 元 系 在 表格 中 的 行 写 ,第 2 个 下 标 值 表示 
该 元 系 在 表格 中 的 列 号 。 
例如 


INTEGER W(3, 2,2) 


三 维 数组 W 的 “形状 ”可 看 成 如 下 2 页 二 维 表格 ,每 一 页 表格 均 为 3 行 2 列 。 


W(l,l1,1) W(]l1,2,1) 


三 维 数组 的 存储 结构 是 按照 页 的 顺序 来 先 存 放 的 。 即 先 存 放 第 1 页 中 的 元 素 , 再 存放 
第 2 页 中 的 元 素 , 以 此 类 推 。 每 一 页 中 的 元 素 又 是 按照 二 维 表 格 的 存放 顺序 ( 先 列 后 行 , 列 优 
先 ) 来 存放 。 所 以 数组 W 在 内 存 中 的 存放 顺序 为 : W(1,1,1) 一 W(2,1,1) 一 W(3,1,1) 一 
W(l,2,DD>W(2,2,1) >W(3,2,1) >W(],1,2)>W(2,1,2)>W(3,1,2)>W(]l1,2,2)— 
W(2,2,2) 一 W(3,2,2) ,如 图 8.5 所 示 。 


W(11D WO.1D WwWG,LD WO21) W211) WG3,2,1) W(1,1,2) W(2,1,2) 


3 


第 1 页 第 2 页 


图 8.5 三 维 数组 的 存储 


8.6 数组 的 输入 和 输出 


8.6.1 用 DO 循环 结构 输入 输出 数组 


用 DO 循环 结构 实现 一 维 数组 的 输入 输出 。 
【 例 8-2】 定义 一 个 包含 10 个 元 素 的 一 维 整 型 数组 ,采用 DO 循环 实现 该 数组 的 输入 
程序 编写 如 下 : 


INTEGER A(10) 

DOI=1,10 
READ * ,A(I) 

END DO 

DOJ=1,10,2 
PRINT x* ,A(J) 

END DO 

END 


程序 中 第 一 个 DO 循环 结构 内 的 READ 语句 被 执行 10 次 ,因此 每 执行 一 次 READ 请 
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句 就 需要 从 新 的 一 行 输入 一 个 数 , 因 此 应 分 10 行 输入 10 个 数 ,这 10 个 数 依次 赋 给 数组 元 
紊 A(1) 到 A(10)。 
程序 中 第 pe DO 循环 内 的 PRINT 语句 被 执行 5 次 ,每 执行 一 次 输出 一 个 新 的 行 , 因 
此 输出 5 个 数 , 每 个 数 占 一 行 。 输 出 的 5 个 数 依 次 为 数组 元 双 A(1)、A(3)、A(5)、A(7) 和 
Dh 
程序 运行 结果 如 图 8.6 所 示 。 


“C:\Programn Files\Nicrosoft Yisual Studio\Co... -上 口 |x 


IPress any key to continue 


图 8.6 例 8-2 运行 结果 


用 骸 天 的 二 重 DO 循环 结构 可 实现 二 维 数组 的 输入 输出 。 
【 例 8-3〗 有 下 列 形状 的 数据 ,用 DO 循环 结构 实现 其 输入 输出 。 


| 1 2 | 
| 
下 5 多) 


INTEGER A(2,3) 
DOI=1,2 
DOJ=1,3 

READ ¥* ,A(I,J) 
END DO 
END DO 
DOK=1,3 
DOL=1,2 

PRINT * ,A(L,K) 
END DO 
END DO 
END 


程序 运行 结果 如 图 8.7 所 示 。 

从 上 面 两 个 例子 可 以 看 出 ,用 DO 循环 结构 输入 输出 数组 时 ,通过 循环 变量 可 灵活 控制 
数组 元 系 输 入 输出 的 数量 和 次 序 。 但 是 ,由 于 每 输入 (和 输出) 一 个 数组 元 系 信 就 要 执行 
次 输入 (输出 ) 语 句 , 所 以 用 DO 循环 输入 输出 数组 时 需要 占 多 行 ， 当 数 组 元 素 较 多 时 , 需 
要 多 屏 显 示 ,使 得 采用 这 种 方法 输入 输出 的 数组 和 数组 的 实际 形式 (二 维 表 格 的 形式 ) 不 
相符 。 
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:C:\Programn Files\Microsoft Yisual Studi... -|o|x| 


Press any key to continue 


图 8.7 例 8-3 程序 运行 结果 


8.6.2 用 数组 名 作为 输入 输出 项 


数组 名 作为 输入 输出 项 时 ,数组 元 系 按 照 它 们 在 内 存 中 的 排列 顺序 输入 输出 , 即 一 维 数 
组 按 申 小 到 大 的 序号 输出 ,二 维 数 组 按 列 输出 ,三维 数 组 按 页 输出 ,每 页 按 列 输出 。 
【 例 8-4】 用 数组 名 作为 输入 输出 项 ,实现 对 例 8-2 中 一 维 数 组 的 输入 输出 。 
INTEGER A(10) 
READ x* ,A 
PRINT 10,A 
10 FORMAT(1X,10I5) 
END 
程序 中 READ 语句 要 求 一 次 性 输入 10 个 数 给 数组 元 素 A(1) 到 A(10)。PRINT 语句 
人 -次 性 输出 10 个 数组 元 系 的 值 , 即 从 ACGl) 到 A(C10) 输 出 数组 元 素 。 
程序 运行 结果 如 图 8.8 所 示 。 


JE 
1 | 4 
Press any i to continue 


图 8.8 例 8-4 程序 运行 结 采 


人 加 本 
【 例 8-5】 用 数组 名 作为 输入 输出 项 ,实现 对 例 8-3 4- 维 数 和 | jesAan 
4 5 6 


程序 编写 如 下 : 


INTEGER A(2,3) 
READ x ,A 
PRINT 10,A 

10 FORMAT(1X,615) 
END 
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在 内 存 中 排列 的 顺序 相 一 致 。 使 用 这 种 方法 进行 数组 的 输入 输出 时 要 特别 注意 数据 的 
组 织 ， 
程序 运行 结果 如 图 8. 9 所 示 。 


ro \Progran Files\Bcrosoft Fisual Studlio\C.. -| 口 |x| 


Press any key to continue 


图 8.9 例 8-5 运行 结果 1 


出 的 数组 形式 与 原 数组 的 形式 不 一 致 。 把 数组 看 成 和 矩阵, 


把 本 例 按 数组 形式 输出 , 输 
出 的 是 原 窍 阵 的 转 置 写 阵 ， 
INTEGER A(2,3) 
READ x* ,A 
PRINT 20,A 
20 FORMAT(1Xx,2I5) 


“Gz:\ll\Debug\l. ee” 


Press any key to continue 


图 8.10 例 8-5 运行 结果 2 


用 数字 名 作为 输入 输出 项 ,解决 了 使 用 DO 循环 进行 数组 输入 输出 时 需要 多 行 输入 
(出 ) 的 问题 。 但 输出 的 次 序 是 按 列 输出 的 ,这 就 产生 了 两 个 新 的 问题 , 即 : 输入 输出 内 容 不 
灵活 ,只 能 输入 输出 数组 的 全 部 元 素 , 不 能 挑选 部 分 元 素 进行 操作 ; 输出 的 数组 形式 与 原 数 
组 形式 不 一 致 。 


8.6.3 用 隐 含 DO 循环 输入 输出 数组 
【 例 8-6】 用 隐 含 DO 循环 结构 实现 例 8-2 中 一 维 数组 的 输入 输出 。 
程序 编写 如 下 : 


INTEGER A(10) 

READ * , (A(I),I=1,10,1) 
PRINT * ,(A(J),J=1,10,2) 
END 


程序 中 READ 语句 后 的 输入 项 是 一 个 隐 舍 DO 循环 结构 ,表示 该 READ 语句 后 面 有 
0 个 输入 项 , 即 要 求 在 一 行内 输入 10 个 数组 元 素 对 应 的 数值 。 同 样 ,PRINT 语句 输出 项 
也 是 一 个 隐 含 DO 循环 结构 ,表示 该 PRINT 语句 后 面 有 5 个 输出 项 , 即 表 示 在 执行 该 输出 
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语句 后 会 在 一 行 中 输出 数组 A 的 A(1)、A(3)、A(5)、A(7)、A(9) 五 个 元 素 的 值 。 
程序 运行 结果 如 图 8. 11 所 示 。 


1 23456 7 8 9 i108 
1 3 


Press any key to continue 


图 8.11 例 8-6 运行 结果 


【 例 8-7】 用 隐 合 DO 循环 实现 个 3 中 二 午 数 组 | 


bY 
的 输入 输出 。 
4 5 6 


程序 编写 如 下 : 

INTEGER A(2,3) 

READ * ,((A(I,J),J=1,3),I=1,2) 
PRINT ¥* ,((A(K,L),K=1,2),L=1,3) 
END 


用 隐 含 DO 循环 结构 的 藤 套 可 实现 二 维 数组 的 输入 输出 。 本 程序 单元 中 READ 语句 
后 面 的 隐 含 DO 循环 中 ,I( 行 ) 为 外 循环 ,J( 列 ) 为 内 循环 ,执行 该 程序 时 表示 ,需要 一 行 输入 
六 个 数据 ,并且 是 第 一 行 输入 完 后 再 输入 第 二 行 数 值 。 同 样 ,PRINT 语句 后 面 的 DO 循环 
中 , 世 ( 列 ) 为 外 循环 ,K( 行 ) 为 内 循环 ,执行 该 程序 时 表示 ,需要 一 行 输出 六 个 数据 ,并且 是 第 

- 列 输出 完 后 再 输出 第 二 列 的 数值 。 
程序 运行 结果 如 图 8. 12 所 示 。 


“Ch\Proeran Files\Nicrosoft Yisual Studio\Comnnon\SDEYTOAR\NY PROJ... -Io|x| 


i123456 
1 4 


Press any key to continue 


图 8.12 例 8-7 运行 结果 1 


要 输出 和 原 数 组 形状 相同 的 结果 ,可 以 加 入 格式 控制 ,或 者 和 DO 循环 结构 相配 合 , 按 
行 来 输出 。 可 修改 程序 如 下 : 
INTEGER A(2,3) 
READ ¥* ,((A(I,J),J=1,3),I=1,2) 
PRINT 10, ((A(I,J),J=1,3),I=1,2) 
10 FORMAT(3I4) 
END 


程序 单元 中 READ 语句 和 上 一 程序 相同 ,PRINT 语句 和 READ 语句 后 面 的 隐 含 DO 
循环 结构 相同 ,工行 ) 为 外 循环 ,J( 列 ) 为 内 循环 ,执行 时 表示 ,输出 一 行 六 个 数据 ,并 且 是 第 
行 输出 完 后 再 输出 第 二 行 数值 , 由 于 加 入 了 格式 控制 ,由 编辑 符 "3I4? 控 制 一 行 只 能 输出 
3 个 数据 ,这 六 个 数据 分 两 行 显示 ,和 原 有 形状 相同 。 
程序 运行 结果 如 图 8. 13 所 示 。 
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cv “FE:\fortranproeran\forbook\ls0l\d6z 6 6vDebugvd6z 6 6. ere”™ 


图 8.13 例 8-7 运行 结果 2 


INTEGER A(2, 3) 
READ x* ,((A(I,J),J=1,3),I=1,2) 


153 


DOI=1,2 
PRINT * ,(A(I,J),J=1,3) 
ENDDO 
END 
程序 中 ,DO 循环 结构 内 的 PRINT 语句 被 执行 2 次 ,每 执行 一 次 PRINT 语句 需要 从 新 


tt 


间 ,降低 程序 的 运行 效率 。 


程序 运行 结果 如 图 8. 14 所 示 。 


cv “FE:\fortranprogran\forbook\ls0l\d6z 6 6vDebugvd6z 6 6. ere”™ 


Press any key to continuwe 


图 8.14 例 8-7 程序 运行 结果 3 


8.7 动态 数组 


行 输出 ,因此 分 2 行 显示 。PRINT 语句 的 输出 项 是 一 个 隐 售 DO 循环 ,在 一 行 中 显示 


在 有 些 情 次 下 ,程序 需要 使 用 的 数组 大 小 要 等 到 程序 执行 之 后 才 会 知道 。 例 如 ,在 成 缚 
记录 的 应 用 中 ,如 末 要 记录 一 个 班 的 学 生成 绩 , 但 是 每 个 班级 的 学 生 人 数 不 一 定 相同 。 在 这 
种 情况 下 ,虽然 可 以 设 定 一 个 足够 大 的 数组 来 保存 数据 ,但 这 样 做 往往 会 占用 很 多 的 存储 空 


合 的 数组 来 使 用 ,就 可 以 节省 存储 空间 ， 提高 程序 运行 的 效率 。 


FORTRAN 语言 引入 了 动态 数组 的 概念 ,提供 了 一 种 灵活 有 效 的 内 存 管理 机 制 。 


S 雪 组 可 以 在 和 的 运行 过 程 中 确定 数组 的 大 小 根据 需要 分 配 存储 空间 。 


[类 型 说 明 符 , ] ALLOCATABLE :; 数组 名 (: [,: ]…)[, 数 组 名 (: [,: ]…)] 


[类 型 说 明 符 , ]DIMENSION( : [,: ] … )，ALLOCATABLE:; 数组 名 [, 数 组 名 ]… 


如 来 能 够 让 用 望 根 据 实际 输入 的 班级 学 生 人 数 , 动 态 定义 一 个 适 


定义 动态 数组 要 加 上 关键 词 ALLOCATABLE, 数 组 的 大 小 不 用 说 明 , 使 用 冒号 “:” 来 
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表示 维 数组 (冒号 的 个 数 )。 

动态 数组 定义 以 后 ,在 程序 中 通过 ALLOCATE 语句 分 配 相 应 存储 空间 ,确定 数组 的 
大 小 。 使 用 完成 后 ,要 及 时 地 通过 DEALLOCATE 语句 释放 存储 空间 。 下 面 通过 一 个 例题 
来 说 明 动 态 数组 的 应 用 。 

【 例 8-8】 输入 某 班 级 学 生 的 一 门 成 绩 , 计 算出 平均 分 。 

分 析 : 学 生 人 数 由 键盘 输入 ,根据 人 数 确定 数组 的 大 小 ,保存 成 绩 , 因 此 采用 动态 数组 ，。 

程序 编写 如 下 : 


INTEGER N, AVER 
INTEGER, ALLOCATABLE:: A(:) 
PRINT x*, "输入 学 生 人 数 :" 
READ * ,N 
ALLOCATE(A(N)) 
PRINT * ，" 输 入 学 生成 绩 : " 
DOI=1,N 

READ * ,A(I) 
ENDDO 
AVER=0 
DOI=1,N 

AVER = AVER + A(I) 
ENDDO 
AVER = AVER/N 
PRINT x* ,"aver = ",AVER 
DEALLOCATE(A) 
END 


程序 运行 结果 如 图 8. 15 所 示 。 


cr “CC:\PROGRAN FILES\NICROSOFT YISUA... 


?5 
Press any kevy to continue 


图 8.15 例 8-8 程序 运行 结果 
8.8 数组 应 用 举例 
本 节 主 要 讲解 一 维 数组 和 二 维 数组 的 典型 应 用 。 一 维 数组 的 应 用 主要 为 使 用 数组 元 素 


做 计数 器 、 求 极 值 、 排 序 、 查 找 、 插 入 \ 删 除 等 ,二 维 数组 的 应 用 主要 为 求 矩阵 的 主 副 对 角 线 元 
素 之 和 、 算 阵 的 转 置 .杨辉 三 角 等 有 关 和 矩阵 的 操作 ，。 
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8.8.1 一 维 数组 程序 举例 


【 例 8-9】 数组 元 系 做 计数 希 。 输 入 20 名 学 生 一 门 译 的 考试 成 绩 , 统 计 各 分 数 段 的 人 
数 。 分 数 段 划分 如 下 : 优 : 95 过 S 近 100; 良 : 80 过 S 一 95; 中 :70 过 S 一 80; 及 格 : 60 近 S 一 
70; 不 及 格 : S 一 60。 
分 析 : 在 对 和 催 单 问题 进行 计数 统计 时 ,可 用 普通 变量 作为 计数 硕 来 实现 ,但 对 大 量 数 据 
的 多 种 情况 统计 ,用 普通 变量 作为 计数 硕 就 比较 复杂 ,这 时 可 考虑 用 数组 元 系 作 计数 套 , 即 
用 数组 的 每 一 个 元 素 作 为 一 个 计数 帮 来 统计 一 种 情况 ,可 使 问题 得 以 简化。 
本 题 中 ,统计 5 个 分 数 段 的 人 数 需 要 有 5 个 计数 需 ,用 一 个 数组 C 中 的 5 个 元 素 表 示 。 
同时 定义 一 个 数组 $, 将 所 有 学 生成 绩 一 次 输入 ,然后 再 逐个 统计 每 个 成 绩 。 
编写 程序 如 下 : 
PARAMETER(N = 20) 
INTEGER C(5),S(N) 
DATA C/5 < 0/ ! 计数 占 清 零 
PRINT x* , "请 输入 ",N, "个 学 生 一 门 课 的 成 绩 "” 
DOI=1,N 
READ * ,S(I) 
ENDDO 
PRINT * , "分 数 输入 完毕 ,请 看 统计 结果 :" 
DOI=1,N 
IF(S(I)<= 100.AND.S(I)>= 95) C(1) = C(1)+1 
IF(S(I)<95.AND.S(I)>= 80) C(2) = C(2)+1 
IF(S(I)< 80.AND.S(I)>= 70) C(3) = C(3)+1 
IE(S(I)<70.MND.S(I)>=60) C(4) =C(4) +1 
IF(S(I})<60) C(5)}= C(5)+1 
END DO 
PRINT *, "分数 段 为 ' 优 ' 的 人 数 为 ",C(1) 
PRINT x* "分 数 段 为 ' 恨 ' 的 人 数 为 ",C(2) 
PRINT x* "分 数 段 为 ' 中 ' 的 人 数 为 ",C(3) 
PRINT x* ， "分 数 段 为 "及 格 ' 的 人 数 为 ",C(4) 
PRINT ¥* "分 数 段 为 ' 不 及 格 ' 的 人 数 为 ",C(5) 
END 


程序 运行 结果 如 图 8. 16 所 示 。 

【 例 phi 数据 排序 。 将 N 个 数 按 从 小 到 大 顺序 排列 后 输出 。 

排序 问题 首先 应 考虑 将 N 个 数 存 放 在 一 个 数组 中 (假设 为 A 数组 ), 再 将 数组 A 中 的 
元 紊 按 从 小 到 大 的 顺序 排序 ,最 后 将 排 好 友 的 数组 A 输出 。 其 中 关键 是 如 何 对 数组 A 的 元 
系 进 行 从 小 到 大 排序 。 排 序 的 方法 有 很 多 种 ,下 面 主 要 介绍 三 种 。 

(1) 简单 交换 排序 法 

该 方法 又 叫做 枚 举 法 。 基 本 思路 为 : 对 要 排序 的 数 进行 多 轮 比 较 , 在 每 一 轮 中 将 位 于 
当前 排序 范围 最 前 面 的 一 个 数 与 它 后 面 的 每 个 数 分 别 进 行 比较 ， ed 
则 不 交换 ,经 过 才干 次 比较 ,就 可 将 最 小 的 数 放 到 最 前 面 。 如 此 重复 ,每 进行 一 轮 比较 排 定 
一 个 数 ,直至 全 部 排 好 次 序 。 
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"CC:\Proeran Files\Nicrosoft Yisual Studio\C... 
医 28 小学生 一 | 卜 课 的 成 绩 
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Press any kew to continuwe 


图 8.16 例 8-9 运行 结果 


针对 上 述 问 题 具体 分 析 如 下 。 

第 一 轮 比 较 : 

首先 ,A(1) 与 它 后面 的 所 有 元 素 比 较 。 与 A(2) 比 较 , 如 果 A(1) 大 于 A(2), 则 将 A(l) 
与 A(2) 交 换 值 ,否则 不 交换 ,这 样 A(1) 的 值 即 是 A(1) 与 A(2) 中 的 较 小 者 。 然 后 ,A(l1) 与 
A(3) 比 较 , 如 果 A(1) 大 于 A(3) , 则 将 A(Q1) 与 A(3) 交 换 值 ,否则 不 交换 ,这 样 A(1) 的 值 即 
是 A(l1)、A(2) 与 A(3) 中 较 小 者 。 如 此 重复 ,最 后 A(1) 与 A(N) 比 较 , 如 果 A(l1) 大 于 
A(N), 则 将 A(1) 与 A(N) 的 值 交 换 , 否 则 不 交换 ,这 样 A(1) 的 值 就 是 A(1),A(2),A(3),…， 
A(N) 中 最 小 者 。 在 这 一 轮 比 较 中 ,一 共 比 较 了 N 一 1 次 。 

第 二 轮 比 较 : 

与 第 一 轮 比较 类 似 , 这 一 轮 的 比较 对 象 是 A(2)。 将 A(2) 与 它 后 面 的 元 素 A(3)， 
A(4),…,A(N) 进 行 比 较 , 如 果 A(2) 大 于 某 元 系 , 则 与 该 元 系 交 换 值 ,否则 不 交换 。 这 样 经 
过 N 一 2 次 比较 后 ,A(2) 将 得 到 次 小 值 。 


第 N 一 1 轮 比 较 ， 

将 A(N 一 1) 与 A(N) 比 较 , 如 果 A(N 一 1) 大 于 A(N), 则 将 A(N 一 1) 与 A(N) 交 换 值 ， 
否则 不 交换 ,这 样 小 数 放 在 A(N 一 1) 中 ,大 数 放 在 ACN) 中 。 

经 过 N 一 1 轮 比较 后 ,数组 A 中 各 元 素 值 即 按 从 小 到 大 的 顺序 排列 。 

通过 上 述 分 析 可 以 看 出 ,在 排序 过 程 中 既 要 考虑 比较 的 轮 数 ,又 要 考虑 在 每 一 轮 中 比较 
的 次 数 , 对 此 可 通过 双重 循环 来 实现 。 外 层 循环 控制 比较 的 轮 数 ,NN 个 数 排序 需要 比较 N 一 
1 轮 , 设 循环 控制 变 A N 一 1; 内 层 循 环 控制 每 一 轮 中 比较 的 次 数 , 对 于 
第 轮 需要 比较 N 一 I 次, 设 循环 变量 为 J, 则 J] 从 I 十 1 变化 到 N。 每 次 比较 的 两 个 元 素 分 
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别 为 A(D 与 A()。 
程序 编写 如 下 : 


PARAMETER(N = 10) 
INTEGER A(N),T 
PRINT x*，' 请 输入 需要 排序 的 ',N, ' 个 数据 ' 
READ x* ,A 
DOI=1,N-1 
DOJ=I+1,N 
IF(A(I)> A(J)) THEN 

T= A(I) 

A(I) = A(J) 

A(J)=T 


PRINT *，,' 原 始 数据 按照 从 小 到 大 的 顺序 排列 如 下 : 
PRINT 10,A 

10 FORMAT(1015) 
END 


程序 运行 结果 如 图 8. 17 所 示 。 


cs “C:\Programn Files\Nicrosoft Yisual Studio\Conmnn... 


请 输 六 前 要 排序 的 18 小 水 据 
19 29 50 8 7.6 9 55 60 


原 站 数据 按照 从 . 小 到 大 的 顺序 排 好 | 如 下 : 
6 7 站 9 二 占 区 四 42 


Press any key to continue 


图 8.17 例 8-10 运行 结果 1 


(2) 选择 排序 法 

基本 思路 : 在 N 个 数 中 , 找 出 最 小 的 一 个 数 ,将 它 与 A(1) 互 换 , 然 后 ,从 N 一 1 个 数 中 ， 
找 一 个 最 小 的 数 ,将 它 与 A(2) 互 换 , 以 此 类 推 , 直 至 剩 下 最 后 一 个 数 为 止 。 

从 A(l) 到 A(N) 中 选 出 值 最 小 的 元 系 , 将 其 值 与 A(1) 互 换 。 这 里 关键 是 如 何 从 A(1) 
到 A(CN) 中 选 出 值 最 小 的 元 率 。 具 体 方 法 如 下 : 设 变 量 P 表示 值 最 小 的 元 素 下 标 ,并 假定 
在 未 选择 之 前 A(1) 的 值 最 小 , 即 P 先 赋 初 值 1, 然 后 将 A(P) 与 A(2)、A(3)、…、A(N) 分 别 
进行 比较 ,者 其 中 某 个 元 系 值 小 于 A(CP), 则 将 该 元 和 素 的 下 标 赋 给 P。 这 样 经 过 N 一 1 次 比 
较 后 ,P 值 即 指向 最 小 元 素 的 位 置 ( 这 个 比较 过 程 可 形象 地 认为 是 流动 红旗 法 ,哪个 数 小 , 红 
旋 流 动 到 哪个 数 , 但 是 数 的 位 置 不 交换 ) ,此 最 小 元 际 为 A(P) ,下 一 步 只 要 将 A(P) 与 A(1) 
互 换 即 可 。 第 一 轮 选 择 结 束 ,A(l1) 的 值 最 小 。 

第 二 轮 选 择 : 

从 A(2) 到 A(N) 中 选 出 值 最 小 的 元 系 , 将 其 值 与 A(2) 互 换 。 选 最 小 元 系 的 方法 与 第 

pte P 的 初始 值 变 为 2, 并 且 A(P) 与 A(3)、A(4)、…、A(N) 分 别 进行 比较 (比较 

N 一 2 次 ) 。 第 二 轮 选 择 结束 ,在 A(2) 到 A(N) 中 A(2) 的 值 最 小 。 
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第 N 一 1 轮 选择 : 

从 A(N 一 1) 到 A(N) 中 选 出 值 最 小 的 元 厅 ,将 其 值 与 A(N 一 1) 互 换 ， - 轮 中 ,P 的 
初始 值 变 为 N 一 1, 并 且 A(P) 只 与 A(N) 进 行 比 较 一 次 。 第 N 一 1 轮 选择 结 i A(N—1) 
到 A(N) 中 A(N 一 1) 的 值 最 小 。 

同 前 种 方法 一 样 ,选择 排序 法 也 要 用 到 双重 循环 。 外 层 循 环 控 制 比较 的 轮 数 ,NN 个 数 
排序 需要 比较 N 一 1 轮 , 设 循环 控制 变量 为 1, 则 I 从 1 变化 到 N 一 1; 内 层 循环 控制 每 一 轮 
中 A(P) 与 其 他 元 厅 比较 的 次 数 , 对 于 第 I 轮 需 要 比较 N 一 I 次 , 设 循环 变量 为 J], 则 J] 从 I 十 1 


变化 到 N。 每 次 互 换 的 两 个 元 素 分 别 为 A(P) 与 ACID 。 此 外 应 注意 了 的 值 是 随 着 比较 的 轮 
数 而 变化 的 ,也 就 是 每 执行 一 次 外 循环 应 将 工 的 值 赋 给 了。 
程序 编写 如 下 : 


PRRRMETER(N = 10) 
INTEGER A(N),T 
PRINT *,' 请 输入 需要 排序 的 ',N, 个 数据 ' 
READ x* ,A 
DOI=1,N-1 
P=I 
DOJ=I+1,N 
IF(A(J)<A(P)) P=J 
END DO 
T= A(I) 
A(I) = A(P) 
RM(P) = 了 
END DO 
PRINT *，,' 原 始 数 据 按照 从 小 到 大 的 顺序 排列 如 下 : 
PRINT 10,A 
10 FORMRAT(10I5) 
END 


程序 运行 结果 如 图 8. 18 所 示 ，。 


“C:\Programn Files\Nicrosoft Yisual Studio\... 
入 需要 排序 的 18 个 数据 


原 着 据 按 安 由 ) 从 小 到 大 的 序 排列 如 下 ， 


a any J ep 


D2 6 


图 8.18 例 8-10 程序 运行 结果 2 


(3) 冒 泡 排序 法 

基本 思路 : 对 要 排序 的 数 进 行 多 轮 比 较 , 在 每 一 轮 中 将 当前 排序 范围 内 相 邻 的 两 个 数 
进行 两 两 比较 ,比较 的 结果 为 小 数 在 前 、 大 数 在 后 。 如 此 重复 ,每 进行 一 轮 排 定 一 个 数 ,和 卫 至 
全 部 排 好 次 厅 。 

第 一 轮 比 较 : 

首先 ,A(1) 与 A(2) 比 较 , 如 果 A() 大 于 A(2) , 则 将 A(1) 与 A(2) 的 值 交 换 , 否 则 不 交 
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换 。 然 后 ,A(2) 与 A(3) 比 较 , 如 果 A(2) 大 于 A(3), 则 将 A(2) 与 A(3) 的 值 交 换 , 否 则 不 交 
换 。 如 此 重复 ,最 后 A(N 一 1) 本 A(N) 比 较 , 如 果 A(N 一 1) 大 于 A(N), 则 将 A(N 一 1) 与 
A(N) 的 值 交 换 ,否则 不 交换 。 这 样 第 一 轮 比 较 N 一 1 次 后 ,A(N) 的 值 就 是 A(1),A(2)， 
A(3),…,A(N) 中 最 大 者 。 

第 二 轮 比 较 : 

与 第 一 轮 比 较 类 似 , 将 A(1) 到 ACN 一 1) 相 邻 的 两 个 元 素 进 行 两 两 比较 ,经 过 N 一 2 次 
比较 后 ,ACN 一 1 将 是 这 些 元 素 中 最 大 者 ,是 数组 A 所 有 元 北 中 种 二 大 者 。 

第 N 一 1 轮 比 较 ， 

A(l1) 与 A(2) 比 较 , 将 小 数 放 在 A(1) 中 ,大 数 放 在 A(2) 中 。 

N 一 1 轮 比 较 后 ,数组 A 中 各 元 系 信 即 按 从 小 到 大 的 顺序 排列 。 

同 前 两 种 交换 排序 法 类 似 , 冒 泡 排 序 法 也 要 用 到 双重 循环 。 外 层 循环 控制 比较 的 轮 数 ， 

N 个 数 排序 需要 比较 N 一 1 轮 , 设 循环 控制 变量 为 1, 则 I 从 1 变化 到 N 一 1; 内 层 循环 控制 每 
- 轮 中 比较 的 次 数 ,对 于 第 I 轮 需 要 比较 N 一 I 次, 设 循 环 变 量 为 J, 则 J 从 1 变化 到 N 一 I。 每 

次 比较 的 两 个 元 素 分 别 为 A(C) 与 A(J 十 1) 。 

程序 编写 如 下 : 


PARAMETER(N= 10) 
INTEGER A(N),T 
PRINT * ，' 请 输入 需要 排序 的 ,N， 个 数据 ， 
READ 关 ,及 
DOI=1,N-1 
DOJ=1,N-—I 
IF(A(J)> A(J + 1)) THEN 
T= A(J) 
A(J)= A(J+1) 
A(J+1)}=T 
END IF 
END DO 
END DO 
PRINT x ， "原始 数 据 按照 从 小 到 大 的 顺序 排列 如 下 : ， 
PRINT 10 ,有 
10 FEORMRAT(10I5) 
END 


程序 运行 结果 如 图 8. 19 所 示 。 


cv “C:\Programn Files\NMicrosoft Yisual Studio\... 


请 输入 前 要 排序 的 18 沾 数 拭 
10 9 6 5 24 60 38 


原始 数据 按照 从 小 到 大 的 顺序 排列 如 下 ， 
6 站 | Wd 5 必 半 四 十, 


| 疝 而 避 枯 司 册 二 碳 和 剖 而 二 二 和 惧 王 


图 8.19 例 8-10 运行 结果 3 
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【 例 8-11】 数据 插入 。 将 一 个 数 择 到 有 序数 列 中 ,插入 后 数列 仍然 有 序 。 

分 析 : 前 先 , 将 该 数列 按 从 小 到 大 的 顺序 存放 到 数组 A 中 ,将 要 插入 的 数 存放 到 变量 X 
中 ; 接 下 来 关键 就 是 找到 插入 的 位 置 以 及 将 义 插 入 ，。 

(1) 找 插 入 位 置 。 如 图 8. 20(a) 所 示 , 设 插入 的 数 XX 为 35, 插 入 的 位 置 用 变量 P 表示 ， 
从 图 中 可 以 看 出 X 应 插 在 第 5 位 , 即 P 值 为 5。 具 体 分 析 如 下 : 设 了 的 初 值 为 1, 将 X 与 
A(CP) 比 较 , 知 X 大 于 A(CP) ,表示 XX 的 位 置 在 A(P) 之 后 ,应 使 P 值 增加 1, 即 执行 P=P 十 1， 
接 痢 将 X 与 下 一 个 元 系 比 较 ( 即 新 的 A(P)); 不 断 重 复 此 过 程 , 当 XX 不 大 于 A(P) 时 ,此 时 
的 P 即 为 所 要 找 的 插入 位 置 。 

A(l) AC) AG) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(l1) 


(a) 


X=35 1 


(b) AI) ADC) AG) A(4) A(5) A(6) AI) A(8) AO9) A(10) A(ll) 


人 
(cj AU) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) A(ll) 


llaolal ll le le | 
3 
图 8.20 例 8-11 数据 插入 过 程 


对 于 X 小 于 A(G1) 和 X 大 于 A(10) 这 两 种 特殊 情况 ,程序 中 也 需要 考虑 。 对 于 第 一 种 
情况 , 设 XX 值 为 12, 条 件 “X 二 A(P) ”不 成 立 ,一 次 循环 也 不 执行 ,P 值 仍然 保持 初 值 1, 即 插 
和 第 1 个 位 置 ,插入 操作 正确 ; 对 于 第 二 种 情况 , 设 X 值 为 70, 循 环 执行 到 第 10 次 时 ,条 件 
仍然 成 立 , 此 时 P 值 变 为 11, 当 青 进行 条 件 判 断 时 ,由 于 条 件 “P 二 二 N” 不 满足 ,退出 循环 ， 
则 插入 位 置 为 11 ,插入 操作 也 正确 。 

(2) 将 义 插 入 。 对 于 XX 为 35, 找 到 插入 位 置 5 之 后 ,要 想 将 X 放 到 A(5) 中 ,首先 需要 
将 A(5) 到 A(10) 中 所 有 元 取 的 值 都 问 后 顺 移 一 个 位 置 ,如 图 8. 20(b) 所 示 。 在 移动 位 置 
时 ,应 注意 先 从 最 后 一 个 元 素 A(10) 开 始 移 动 ,否则 前 一 个 元 系 值 * 宪 盖 ” 了 后 一 个 元 厅 的 
值 ,将 导致 从 A(5) 到 A(10) 的 值 最 后 都 变 为 36。 在 移 好 位 置 之 后 ,再 将 X 的 值 存 到 A(5) 
中 , 即 赋 给 A(5) ,如 图 8.20(c) 所 示 。 

最 后 一 条 语句 表示 插入 一 个 数 后 数组 中 的 数据 应 增加 1 个 。 该 程序 段 对 于 X 小 于 
A(l1) 和 XX 大 于 A(10) 这 两 种 特殊 情况 也 是 适用 的 ,请 读者 日 己 分 析 。 

这 里 还 需要 说 明 的 是 ,由 于 要 问 A 数组 中 插入 一 个 数 久 ,所 以 在 说 明 数 组 A 大 小 时 应 
适当 加 大 ,以 免 放 不 下 而 发 生 下 标 越界 的 错误 。 

程序 编写 如 下 : 

INTEGER A(15),X,P 


N= 10 
A(1:N) = (/13,17, 20,28, 36,39,41, 49,57,62/) 


第 8 晶 数组 ， 
PRINT * ， 已 有 有 序数 据 :' 
PRINT 10,A(1:N) 


PRINT *,' 请 输入 要 插入 的 数据 :' 


READ x ,Xx 

P=1 

DO WHILE(X> A(P). AND.P<=N) ! 找 到 要 插入 的 位 置 
P=P+1l 

END DO 

DOI=N,P,—1 ! 将 插入 位 置 及 之 后 的 元 素 整 体 后 移 ,把 插入 位 置 腾空 
A(I+1)=A(I) 

END DO 

A(P)=X ! 插 入 XxX 的 数值 

N=N+1 ! 插 入 后 数组 中 的 数据 增加 一 个 


PRINT x* ,' 插 入 后 的 有 序数 据 :' 
PRINT 10,A(1:N) 

10 FORMAT(1X,15I5) 
END 


程序 运行 结果 如 图 8. 21 所 示 。 


ec" “C:\Program Files\Mcrosoft Viaual | Stadio\Conmmon\.. 几 -上 口 | x| 

忆 有 朋友 数据 : \ 
3 29 _28 

请 条 》 要 搬入 的 数据 : 


插 ) 入 后 的 有 序数 据 : 
13 17 之 四 28 35 
Press any key to continue 


图 8.21 例 8-11 运行 结果 


【 例 8-12】 数据 删 际 。 将 一 列 数 中 指定 的 数 删除 ,例如 ,将 数列 25,50,67,29,25,25， 
51,89,12,25 中 所 有 的 25 都 删除 ,要求 删除 之 后 ,其余 的 数 先 后 次 序 不 变 。 

分 析 : 如 图 8-22 所 示 ,将 该 数列 存放 到 数组 A 中 ,用 变量 P 表示 要 删除 的 数 ( 用 X 表 
示 :X 的 值 为 25) 的 位 置 ,N 表示 删除 X 后 剩余 的 数 的 个 数 。 从 图 8. 22(a) 中 可 以 看 出 , 想 要 
删除 X, 关 键 是 先 要 确定 X 的 位 置 ,再 进行 删除 操作 。 

(1) 确定 XX 位 置 。 可 用 前 面 介 绍 的 顺序 检索 法 来 确定 X 的 位 置 ,如 下 面 程序 段 所 示 : 

DOP=1,N 

IF(A(P) == X) EXIT 

END DO 
这 是 一 个 循环 双 出 口 问题 。 当 退出 循环 时 , 若 P 小 于 或 等 于 N,P 即 代表 X 的 位 置 ,车 PP 大 
于 N ,表示 要 删除 的 数 XX 不 存在 ， 

(2) 删除 义 。 从 图 中 可 以 看 出 ,每 次 删除 义 ,只 需要 将 X 之 后 的 所 有 数 癌 前 顺 移 一 个 位 
置 ,这 样 X 被 其 后 的 数 “ 和 覆盖 ”, 即 被 删除 。 

需要 注意 的 是 ,在 回 前 顺 移 位 置 时 ,前 面 的 数 先 移动 ,后 面 的 数 后 移动 ,这 与 插入 操作 刚 
好 相反 。 男 外 应 注意 循环 变量 I 工 的 终 值 应 为 N 一 1, 而 不 是 N。 语 句 N=N 一 1 表示 删除 一 
个 数 后 剩余 数 的 个 数 。 

这 里 还 需 注 意 : 如 图 8. 22(b) 所 示 , 当 删除 第 一 个 25 后 ,元 厅 A(10) 值 的 位 置 为 空 , 实 
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际 上 并 不 为 空 ,A(10) 的 值 仍 然 为 25, 因 为 在 移 位 时 A(10) 的 值 没 有 被 “覆盖 ”, 但 可 以 不 去 
管 它 ,只 要 认为 剩 下 的 元 素 为 9 个 就 可 以 , 即 N 减 去 1。 同 理 , 当 第 二 个 25 被 删除 之 后 ， 
A(9) 和 A(10) 的 值 均 变 为 25 ,但 我 们 认为 剩 下 的 元 素 为 8 个 即 可 ,其 余 以 此 类 推 。 


(a) 人 人) A(2)  AG) A(4) AS) A(6) A(7) A(8) A(9) Al0) N=10 


A(l) AGCQ2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) Al(10) 


A(l) AD AD A(4) A(3) A(6) AD AI A(9) A(l10) 


A(l) A A(3) A(4) A(3) A(6) AD AI) A(9) A(10) 


图 8.22 例 8-12 数据 删除 过 程 


当 被 删除 的 数 不 在 最 后 一 位 时 ,可 通过 向 前 顺序 移 位 “覆盖 ”的 办 法 来 实现 删除 ,但 如 果 
锌 删除 的 数 在 最 后 一 位 ,其 后 再 没有 数 回 前 移 位 "上 履 兰 ” ,那么 该 如 何 删除 它 , 上 面 的 程序 段 
是 否 适 用 于 这 种 情况 ? 具体 分 析 如 下 : 如 图 8. 22(c) 所 示 ,通过 查找 X 位 置 可 以 确定 P 值 
为 8, 并 且 此 时 N 的 值 也 为 8, 由 于 上 面 程序 段 循 环 变量 I 的 值 是 从 P 变 到 N 一 1, 步 长 为 1， 
显然 一 次 循环 也 不 执行 ,但 执行 了 后 面 N=N 一 1 这 条 语句 ,那么 在 最 后 输出 数组 A 时 只 输 
出 前 7 个 元 素 ,不 输出 元 素 A(8) ,这样 就 可 认为 最 后 一 个 25 也 被 删除 了 ,因此 上 面 程序 段 
是 适合 这 种 情况 的 。 

由 于 要 删除 的 数 可 能 不 止 一 个 ,上 面 确 定 删除 位 置 和 执行 删除 操作 将 会 多 次 重复 ,因此 
要 用 到 双重 循环 。 

程序 编写 如 下 : 

INTEGER A(10),X,P 


A= (/25,50,67,29,25,44,51,89,12,25/) 
PRINT *，,' 原 始 数 据 :' 


PRINT 10,A 
PRINT x* ，" 请 输入 需要 删除 的 数据 :' 
READ x* ,Xx 
N= 10 
P=1 
DO WHILE(P<= N) 
DOP=1,N 
IF(A(P) == X) EXIT 
END DO 
IF(P<= N) THEN 
DOI=P,N-1 


MT) MIL+LI) 
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END DO 
N= N-1 
END IF 
END DO 
IF(N== 10) THEN 
PRINT x*,' 没 有 发 现 要 删除 的 数 !' 
ELSE 
PRINT *, ' 删 除 后 形成 的 新 数据 :' 
PRINT 10,A(1:N) 
END IF 
10 FORMAT(1X,10I14) 
END 


程序 运行 结果 如 图 8. 23 所 示 。 


cs “C:\Programn Fileas\Nicrosoft Yisual Studio\C... 


原 类 吉 指 : 
a5 44 S51 B89 i2 25 
请 入 . 雪 要 机 陈 人 类 据 : 


扣除 后 形成 的 新 数据 : 
oH br 29 44 Si BB? 12z 
Press any key to continue 


图 8.23 例 8-12 运行 结果 


8.8.2 二 维 数组 程序 举例 


【 例 8-13】 输入 若干 名 学 生 的 学 号 和 三 门 课程 (语文 ,数学 和 外 语 ) 的 成 绩 , 要 求 打 印 
出 按 平均 成 绩 进 行 排名 的 成 绩 单 。 如 果 平 均 成 绩 相 同 , 则 名 次 并 列 ,其 他 名 次 不 变 。 

分 析 : 这 里 可 用 整 型 数组 NUM 存放 学 号 , 整 型 数组 S 存放 名 次 。 对 于 三 门 课程 和 平 
均 成 绩 可 用 四 个 一 维 数组 来 存放 ,也 可 用 一 个 列 数 为 4 的 二 维 数组 来 存放 。 为 简便 起 见 , 这 
里 采用 二 维 实 型 数组 来 存放 , 设 为 A, 数 组 A 的 前 三 列 分 别 存放 三 门 课程 成 绩 ,最 后 一 列 存 
放 平 均 成 绩 。 

这 道 题 的 关键 是 如 何 给 学 生 排 名 ,对 此 可 这 样 考虑 : 设 学 生 总 数 为 20 人 ,看 20 人 中 有 
19 人 的 平均 成 绩 部 高 于 某 学 生 , 则 该 学 生 的 名 次 为 20; hy 20 人 中 有 18 人 的 平均 成 绩 都 高 
于 某 学 生 , 则 该 学 生 的 名 次 为 19; 以 此 类 推 , 奋 20 人 中 有 0 人 的 平均 成 绩 高 于 某 学 生 , 则 该 
学 生 的 名 次 为 1。 

再 来 考虑 名 次 并 列 的 情况 , 硅 两 名 学 生平 均 成 绩 相 同 , 那 么 统计 出 的 下 值 也 相同 , 则 名 
次 也 就 相同 。 因 此 下 面 的 程序 段 也 可 处 理 名 次 并 列 的 情况 。 

男 外 ,在 打印 按 平均 成 绩 进 行 排名 的 成 绩 单 时 ,应 注意 确保 某 个 学 生 的 名 次 .学 号 、 各 门 
课程 成 绩 以 及 平均 成 绩 都 是 该 学 生 自 己 的 ,避免 张冠李戴 。 

程序 编写 如 下 : 

PARAMEFTER(N = 10) 

INTEGER NUM(N),A(N,4),S(N),K 

PRINT 10, "请 输入 ",N, "个 学 生 的 学 号 和 三 门 课程 的 成 绩 " 


DOI=1,N 
RERAD * ,NUM(I),A(I,1),A(I,2),A(I,3) 
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A(I,4) = (A(I,1) +A(I,2) +A(I,3))/3.0 
END DO 
DOI=1,N 
K=0 
DOJ=1,N 
IF(A(J,4)> A(I,4)) K=K+1 
END DO 
S(I)}=K+1 
END DO 
PRINT x ,'" 
PRINT x ，' 按 照 平均 分 排名 如 下 : 


PRINT x* ，' 名 次 学 号 语文 数学 英语 平均 成 绩 
DO I=1,N 
DOJ=1,N 
IF(S(J) == I) PRINT 20,S(J),NOM(J), (A(J,L),L=1,4) 
END DO 
END DO 
10 FORMAT(A, I3,A) 
20 FORMRT(I5 ,I10 ,4I7) 
END 


程序 运行 结果 如 图 8. 24 所 示 。 


“C:\Proeran nikal 到 工艺 了 如] Studio\bsm OD|x| 


请 输入 个 生生 的 守 号 和 三 | 课程 的 成 绩 
288901 


200903 
2086986 
208809 人 801 
200908 
200907 
2080989 
和 2 上 89 
200902 
2886918 
| 着 看 避 林 司 届 二 凋 和 右 帮 二 二 和 惧 局 


【 例 8-14】 将 个 二 维 数组 中 。 


1 
例如 A=|5 


第 8 和 章 数组 Wp 
分 析 : 用 一 个 整 型 二 维 数组 A 存放 原 和 矩阵 ,用 一 个 整 型 二 维 数组 B 存放 转 置 矩阵 。 在 
将 数组 A 各 元 素 值 赋 给 数组 B 各 元 素 时 ,要 用 到 双重 循环 ,外 循环 变量 控制 数组 A 的 行 数 ， 
内 循环 变量 控制 数组 A 的 列 数 。 
程序 编写 如 下 : 


INTEGER A(3,4),B(4,3) 
PRINT *，,' 请 输入 A 数组 的 数据 :' 
READ 10,((A(I,J),J=1,4),I=1,3) 
DOI=1,3 
DOJ=1,4 
B(J,1I) = A(I,J) 
END DO 
END DO 
PRINT x*，' 行 和 列 交 换 后 的 数组 B 为 :， 
PRINT 20,((B(I,J),J=1,3),I=1,4) 
10 FORMAT(4I4) 
20 FEORMRAT(1X, 3I4) 
END 


程序 运行 结果 如 图 8. 25 所 示 。 


"C:\Programn Files\Nicrosoft Yisual Studi... -上 口 |x 


TEST 二 F 
1 2 3 4 


已 6 ps 各 


9 _ 190 11 12 
行 和 列 交换 后 的 数组 B 为 : 
1 5 3 


2 6 118 
3 ?7 ii 
| 4 8 12 


Press any key to continue 


图 8.25 例 8-14 程序 运行 结果 


【 例 8-1S】 求 N 行 N 列 矩阵 的 主 对 角 线 上 的 所 有 元 素 之 和 。 
分 析 : 对 主 对 角 元 对 的 操作 是 经 和 营 用 到 的 ,本 例 的 关键 点 是 如 何 表 示 主 对 角 线 上 的 
元 素 。 如 采用 A 表示 数组 名 , 则 主 对 角 元 系 分 别 是 A(1,1)、A(2,2)、A(3,3)…ACN,N)。 
- 般 地 , 主 对 角 元 冯 可 表示 为 A(I1,D,I 的 值 由 1 变化 到 N。 所 以 可 以 用 循环 结构 来 
程序 编写 如 下 : 


PARAMETER(N = 5) 

INTEGER A(N,N), SUM 
SUM=0 

DOI=1,N 

READ*x , (A(I,J),J= 1,N) 
END DO 

DOI=1,N 
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SUM = SUM + A(I,I) 
END DO 
PRINT x* , SUM 
END 


【 例 8-16】〗 编写 程序 ,打印 出 下 面 形 式 的 杨辉 三 角形 。 


一 
Fl 
< 
| 
人 
<T 
le 


30 84 126 126 84 


1 
8 | 
30 1 


分 析 : 打印 上 面 形式 的 杨辉 三 角形 ,关键 是 要 找 出 数字 之 间 的 变化 规律 。 可 将 该 形状 
的 杨辉 三 角形 看 成 一 个 10 行 10 列 的 二 维 数组 的 左下 半 三 角 ( 包 含 对 角 线 在 内 ), 因 此 可 害 
义 一 个 整 型 数组 A(10:10)。 由 数字 形状 可 以 看 出 : 第 1 列 元 系 和 对 角 线 上 元 系 的 值 均 为 
1; 从 第 3 行 开 始 , 第 工行 上 第 2 列 到 第 1 一 1 列 ,各 列 每 个 元 系 值 为 上 一 行 相对 应 的 两 元 素 
值 之 和 。 
男 外 应 注意 ,打印 数组 A 时 只 需要 打印 左下 半 三 角 的 元 和 素 , 这 可 用 双重 循环 结构 来 实 
为 了 使 程序 更 简洁 ,内 循环 可 用 隐 含 DO 循环 结构 。 


程序 编写 如 下 : 


PARAMETER(N = 10) 
INTEGER A(N,N) 
DOI=1,N 
A(I,1)=1 
A(I,I)=1 
END DO 
DO I=3,N 
DOJ=2,I-—-1 
A(I,J)=A(I-1,J-1) + A(I—1,J) 
END DO 
END DO 
PRINT *，,' 杨 辉 三 角形 打印 如 下 :' 
DOI=1,N 
PRINT 100, (A(I,J),J=1,1) 
END DO 
100 FORMRAT(1X, 10I5) 
END 


程序 运行 结果 如 图 8. 26 所 示 。 


! 第 一 列 元 素 
! 主 对 角 线 上 的 元 素 


! 其 他 元 素 的 变化 规律 


! 每 一 行 都 打印 到 工行 工 列 
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cr “C:\Programn Files\Nicrosoft Yisual Studio\Conm... -上 口 |x 
梳 奋 三 角形 打印 如 下 站 


1 5 1 
2 15 6 
35 35 21 
-56 ?8 56 
B84 1i26 126 


pk pk kk ok ek kk hk 
下 


| 志和 避 亲 下 避 二 而 和 站 有 起 王 丰 可 计 


图 8.26 例 8-16 运 行 结果 
习 型 8 


1. 写 出 下 列 程序 的 运行 结果 ，。 
(1) INTEGER A(3,4) 
DATA A/1,2,3,4,5,6,7,8,9,10,11,12/ 
PRINT x ,A 
PRINT 100, A 
PRINT 200, ((A(I,J),J=1,4),I=1,3) 
100 FORMAT(1X,313) 
200 FORMAT(1X, 413) 
END 
(2) INTEGER A(4,5),S1,S2 
DATA A/A*¥*1,4x*x2,4*3,4x*4,4*0,/ 
S1=0 
DOI=1,4 
SsS2=0 
DOJ=1,5 
S2=S2+A(I,J) 
IF (I.EQ.J) S1= S11+A(I,J) 
ENDDO 
PRINT * ，S2 
ENDDO 
PRINT* ，S1 
END 
(3) DIMENSION X(3,3) 
DATA X/1,2,3,4,5,6,7,8,9/ 
S=0 
DOI=1,3 
S=S+xX(I,4— I) 
ENDDO 
WRITE( * ,20) S 
20 FORMAT(1X,'S= ',F6.2) 
END 


(4) INTEGER A(10) 
DATA A/1,2,1,2,3,2,3,4,3,10/ 
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DOI=1,9 
IE (A(I).NE.0) THEN 
DOJ=I+1,10 
IE (A(I). EQ.A(J)) A(J)=0 
ENDDO 
ENDIF 
ENDDO 
K=0 
DOI=1,10 
IE (A(I).NE.0) K=K+1 
ENDDO 
WRITE( * ,40) 'K= ',K 
40 FORMAT(1X,A,13) 
END 


2. 从 键盘 输入 10 个 数 ,要求 按 输入 时 的 逆序 输出 。 
3. 查找 一 列 数 中 最 大 数 ,并 将 其 搬 在 第 一 个 数 前 。 
4. 有 N 个 国家 名 ,要求 按 字母 先后 顺序 排列 并 输出 。 


5. 输入 任意 6 个 数 , 放 在 数组 中 。 硅 输入 的 6 个 数 为 1.2、3、4、5、6, 用 三 种 方法 打印 出 
以 下 方 阵 : 
1 2 3 4 5 6 
2 3 和 56 1 
3 4 56 12 
4 村 后 1 多 3 
1 
6. 用 三 种 方法 打印 以 下 图 案 。HELLO! 巾 键盘 输入 。 
HELLO! 
ELLO! 
Cl 
LO! 
D1 
| 


7. 将 N 个 数 按 从 大 到 小 的 顺序 排列 后 输出 。 

8. 输入 耕 干 名 学 生 的 学 号 和 三 门 课程 (请 文 、 数 学 和 英 堵 ) 的 成 绩 , 要 求 从 键盘 输入 一 
个 学 生 的 学 号 ,能 打印 出 该 学 生 的 三 门 课 程 成 绩 和 总 分 。 

9. 数据 检索 。 设 有 N 个 数 , 找 出 其 中 值 为 X 的 数 , 并 记录 其 位 置 。 

10. 输入 一 个 5 行 5 列 的 矩阵 ,完成 下 列 要 求 

(1) 输出 该 矩阵 和 该 矩阵 的 转 置 卸 阵 。 

(2) 求 每 行 元 素 之 和 ,将 和 值 最 大 的 行 与 第 一 行 对 调 ,输出 对 调 后 的 新 矩阵 。 

(3) 用 对 角 线 上 的 各 元 系 分 别 去 除 各 元 素 所 在 的 行 , 输 出 新 的 矩阵 。 

11. 找 出 N 行 N 列 组 成 的 二 维 数组 中 最 大 元 素 和 最 小 元 素 所 在 的 位 置 。 
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教学 目标 : 

。 理解 子 程序 的 概念 ; 

。 学 握 语句 遂 数 的 定义 与 调用 ; 

。 和 学 握 函 数 子 程序 的 定义 与 调用 ; 

。 掌握 子 例 行 子 程序 的 定义 与 调用 ; 

。 理解 程序 单元 之 间 数 据 的 传递 方式 一 一 虚实 结合 ; 
。 了 解 递归 子 程序 和 内 部 子 程序 ; 

。 掌握 公用 区 语句 和 等 价 语 向 的 作用 。 


本 草 介 绍 各 种 子 程 序 的 结构 、 功 能 以 及 子 程 序 与 主 程序 或 子 程序 与 子 程序 之 间 的 数据 
传递 关系。 请 句 函 数 不 具 备 于 程序 的 一 般 书 写 特征 ,但 其 作用 与 子 程序 相同 ,也 一 并 放 在 本 
草 讨论 。 通 过 本 草 的 和 学习, 应 学 会 选择 并 设计 恰当 的 子 程 序 形式 来 构造 日 己 的 程序 ,从 而 所 
高 程序 设计 能 力 。 


9.1 概 二 


9.1.1 子 程序 产生 的 原因 


经 过 前 面 的 学 习 , 我 们 已 经 能 够 通过 编写 单个 FORTRAN 源 程序 代码 实现 一 些 简单 问 
题 的 计算 机 求解 ,在 积累 编程 经 验 的 同时 也 注意 到 ,过 到 的 问题 越 复 杂 、 越 庞大 ,解决 该 问题 
所 消耗 的 时 间 和 精力 就 会 越 多 ,所 编写 的 程序 代码 也 越 长 , 越 容易 出 错 和 难以 纠 错 , 其 至 在 
有 些 情况 下 ,实际 上 是 在 不 断 地 重复 相同 或 相似 的 程序 代码 。 比 如 下 面 的 两 个 问题 。 

问题 1 某 开发 商 从 政府 购 得 一 块 不 规则 六 边 形 的 土地 (如 图 9. 1(a) 所 示 ) 准 备用 于 房 
地 产 开 发 ,输入 每 亩 地 的 价格 ,计算 此 块 土地 的 价值 。 

问题 2 某 水 上 活动 中 心 的 游泳 池 池 底 是 一 个 五 边 形 ( 如 图 9. 1Cb) 所 示 ) ,深度 1. 5m， 
注水 深度 1. 4m, 已 知 每 吨 水 的 价格 为 10 元 , 试 计算 该 泳池 达到 注水 深度 需要 支付 的 水 费 。 

以 上 两 个 问题 都 涉及 不 规则 图 形 的 面积 计算 问题 。 对 于 不 规则 图 形 ,可 以 将 其 划分 成 
若干 个 三 角形 ,只 要 测 得 每 个 三 角形 三 条 边 的 长 度 xz、y、z, 就 可 以 按照 下 式 计算 三 角形 的 面 
积 S; 


S= wce(c 一 zz)(c 一 y)(Cc 一 xz)， 其 中 c= 二 


问题 1 中 的 不 规则 六 边 形 可 以 分 割 成 4 个 三 角形 ,只 要 测 得 这 4 个 三 角形 9 条 边 的 长 
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(a) (b) 
图 9.1 多 边 形 面积 计算 


度 ,就 可 以 计算 出 这 4 个 三 角形 的 面积 ,累加 后 获得 不 规则 六 边 形 的 面积 ,进而 可 获得 土地 
价值 。 其 程序 如 下 : 


PROGRAM HEXAGON EARTH 1 
REAL A, B,C,D,E,F,G,H,I,AREA,AREA2, AREA3, AREA4, AREA, T, PRICE, VALUE 
READ* , A,B,C,D,E,F,G,H,I,PRICE 

! 计 算 第 1 个 三 角形 ABC 的 面积 RRER1 

T= (A+B+G)/2 

AREAl1 = SQORT(Tx¥x (T 一 ARA) < (T-B)* (T- 6G)) 

! 计 算 第 2 个 三 角形 ACD 的 面积 AREA2 

T= (G+ C+H)/2 

AREA2 = SQRT(Tx* (T—-G)¥* (T-C)* (T- H)) 

! 计 算 第 3 个 三 角形 ADE 的 面积 AREA3 

T= (H+D+I)/2 

AREA3 = SQRT(Tx* (IT 一 HI 关 (T-D)x (T- I)) 

! 计 算 第 4 个 三 角形 AEF 的 面积 AREA4 

T= (I+E+F)/2 

AREA4 = SORT(T 关 (IT 一 I) 关 (T-E)*x (T—-F)) 

! 计 算 多 边 形 ABCDEFF 的 面积 AREA 

AREA= AREAl + AREA2+ AREA3+ AREA4 

AREA = AREA/666. 67 

PRINT * , "六 边 形 土地 ABCDEF 的 面积 是 :",AREA, "再 " 
VALUE = PRICE * AREA 

PRINT * , "六 边 形 土地 ABCDEF 的 价值 是 :" ,VALUE, "万 元 " 
END 


观察 上 述 程 序 可 以 发 现 , 计 算 三 角形 面积 的 程序 段 代 码 重 复出 现 了 4 次 ,这 4 段 代 码 除 
了 变量 的 名 称 不 同 外 几乎 完全 相同 。 
同 理 ,问题 2 中 游泳 池 池 底 的 多 边 形 可 分 割 成 3 个 三 角形 ,只 要 测 得 这 3 个 三 角形 7 条 
边 的 长 度 ,就 可 计算 出 这 3 个 三 角形 的 面积 ,累加 后 得 到 不 规则 五 边 形 的 面积 ,利用 校 柱 体 
积 会 式 , 即 可 获得 泳池 注水 体积 ,进而 计算 出 水 费 。 其 程序 如 下 : 


PROGRAM PENTAGON SWIMMING POOL1 
REAL A,B,C,D,E,F,G,T,AREA]l,AREA2,AREA3, AREA 
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REAL W H,W VOL,W PRICE,W BILL 
READ* , A,B,C,D,E,F,G,W H,W PRICE 
! 计 算 第 1 个 三 角形 ABC 的 面积 RRER1 
T= (A+B+F)/2 
ARERA1 = SQORT(T¥* (T—-A)x* (T 一 B) 关 (T—-F)) 
! 计算 第 2 个 三 角形 AaCD 的 面积 AREA2 
T= (F+C+6G)/2 
AREA2 = SORT(Tx (T—-F)¥ (T-C)x (T-G)) 
! 计算 第 3 个 三 角形 ADE 的 面积 AREA3 
T= (H+D+1I)/2 
AREA3 = SORT(Tx (T—-H)x* (T-D)*x (T-I)) 
! 计 算 五 多 边 形 ABCDE 的 面积 AREA 
AREA= REAL + AREM2 + AREA3 
! 计 算 游 泳池 所 需 注 水 量 
W_VOL= AREAx*xWH 
! 计 算 游 泳池 注水 水 费 
W BILL = W PRICE x W VOL 
PRINT * , "五 边 形 游 泳池 注水 所 需 缴纳 水 费 为 :",W_BILL,， "元" 


问题 2 的 程序 代码 中 ,计算 三 角形 面积 的 代码 “重复 ”出 现 了 3 次。 由 此 可 知 , 在 设计 和 
编写 求解 问题 的 程序 时 ,同一 程序 内 的 不 同位 置 可 能 多 次 出 现 相 同 或 相似 的 运算 及 处 理 过 
程 ,不 同 问题 的 程序 内 也 可 能 出 现 相 同 或 相似 的 运算 及 处 理 过 程 。 那 么 ,这 种 相同 或 相似 的 
运算 及 处 理 过 程 能 人 耕 在 程序 中 少 被 重复 呢 ? 

管 案 是 肯定 的 。 这 里 先 采 用 循环 的 思想 改 瑟 上 述 程序 1. 


PROGRAM HEXAGON EARTH 2 
REAL A, B,C,T, AREAl, PRICE, VALUE 


AREA=0 
! 通 过 循环 计算 4 个 三 角形 的 面积 之 和 ,循环 每 执行 一 次 就 计算 一 个 三 角形 的 面积 
DOI=1,4 


READ*X , A,B,C, 

T= (A+B+C)/2 

RARER = AREA + SQRT(Tx (T—- A)x (T-B)* (T-C)) 
ENDDO 

AREA = AREA/666. 67 

PRINTx* ," 六 边 形 土 地 ABCDEF 的 面积 是 :",AREA, "再" 
READ * ,PRICE 

VALUE = PRICE x* AREA 

PRINT x* , "六 边 形 土地 ABCDEF 的 价值 :" ,VALUE, "万 元 " 
END 


在 本 改写 程序 中 ,相似 运算 及 人 处理 过 程 (计算 三 角形 面积 ) 的 代码 在 同一 程序 中 只 出 现 
了 一 次 ,但 由 于 这 段 代 码 没 有 独立 性 , 故 同样 的 修改 在 第 2 个 问题 中 依旧 要 进行 处 理 。 问 题 
2 的 修改 程序 如 下 : 

PROGRAM PENTAGON SWIMMING POOL2 

REAL A,B,C,T, AREA]l,W H,W VOL,W PRICE,W BILL 


AREA=0 
! 通 过 循环 计算 3 个 三 角形 的 面积 之 和 ,循环 每 执行 一 次 就 计算 一 个 三 角形 的 面积 
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DOI=1,3 

READ* , A,B,C, 

T= (A+B+C)/2 

AREA = AREA + SORT(Tx* (T—-A)*x* (T-B)x* (T-C)) 

ENDDO 

READ* , W H,W PRICE 

W VOL = AREAx*xW H 

W BILL= W PRICE x* W VOL 

PRINT* , "五 边 形 游泳 池 注 水 所 需 缴 纳 水 费 为 :",W BILL, "元" 
EMD 


显然 ,采用 循环 的 思想 减少 了 同一 程序 单元 内 相似 运算 及 处 理 过 程 重复 出 现 的 次 数 , 但 
不 能 消除 不 同 程序 单元 间 的 这 种 重复 行为 。 为 了 解决 此 类 问题 ,FORTRAN 程序 设计 请 言 
在 目 身 发 展 中 产生 了 一 种 新 技术 一 一 子 程序 。 

子 程序 是 能 解决 某 个 特定 问题 的 .相对 独立 的 程序 单元 ,之 所 以 说 相对 独立 是 因为 子 程 
序 不 能 像 主 程序 那样 单独 运行 ,只 能 被 调用 ,就 好 像 是 整套 积木 的 某 个 积木 块 一 样 。 

在 进一步 了 解 子 程序 之 前 , 先 看 看 使 用 子 程序 编程 思想 后 ,解决 问题 1 和 问题 2 的 程序 
代码 。 


! 用 于 计算 三 角形 面积 的 图 数 子 程序 

REAL FUNCTION TRI AREA(X,Y,2Z) 

REAL X,Y,2,T 

IF(X+Y> 2Z.AND.Y+2Z>X.AND.Z+X>Y)THEN 
T= (X+Y+2)/2 

TRI AREA= SORT(Tx (T—X)* (T—-Y)x* (T- 2)) 

ELSE 
PRINT* , "数据 不 合理 , 构 不 成 三 角形 " 

ENDIF 

END 

! 解决 问题 1 的 主 程序 

PROGRAM HEXAGON EARTH 3 

REAL A, B,C,T, AREA]1, PRICE, VALUE 


AREA=0 
! 循 环 中 通过 调用 因数 TRI_AREA, 计算 三 角形 面积 
DOI=1,4 


READ¥ , A,B,C, 

AREA = AREA + TRI AREA(A, B,C) 

ENDDO 

AREA = AREA/666. 67 

PRINT * , "六 边 形 土地 ABCDEF 的 面积 是 :", AREA, " 盏 " 
READ * , PRICE, 

VALUE = PRICE x AREA 

PRINT x ," 六 边 形 土 地 ABCDEF 的 价值 :" ,VALUE, "万 元 " 
END 


程序 第 1 行 的 “PROGRAM” 是 一 个 关键 字 , 用 以 说 明 其 所 属 的 程序 单元 是 主 程序 单 
元 。PROGRAM 后 可 接 主 程序 单元 名 ,如 上 面 的 HEXAGON_EARTH 3, 也 可 省 略 程序 
名 。 前 几 章 讲解 的 程序 均 是 主 程序 ,但 为 何 疫 有 PROGRAM 语句 呢 ? 这 是 因为 主 程序 是 
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默认 的 程序 单元 属性 , 当 一 个 程序 单元 无 任何 身份 标识 时 ,默认 其 是 主 程序 。 本 章 开 始 学 习 
子 程序 ,为 了 区 分 主 程 序 和 子 程序 ,我 们 在 主 程 序 的 第 一 行 主动 进行 主 程序 说 明 。 

! 解决 问题 2 的 主 程序 

PROGRAM PENTAGON SW IMMING POOL2 

REAL A,B,C,T, AREA1,W H,W VOL,W PRICE,W BILL 

AREA=0 

DOI=1,3 

READ 关 , A,B,C, 

AREA = AREA + TRI ATRA(A, B,C) 

ENDDO 

RERD x , W H,W PRICE 

而 VOL = AREA WH 

W BILL = W PRICE x* W _ VOL 

PRINT x , "五 边 形 游泳 池 注 水 所 需 缴 纳 水 费 为 :",W BILL，" 元 ， 

END 

上 述 程 序 中 ,计算 三 角形 面积 的 程序 段 只 出 现 了 一 次 ,同一 程序 单元 .不 同 程序 单元 均 
不 存在 相似 运算 及 处 理 过 程 的 重复 。 图 数 子 程序 TRI AREA 具有 一 定 的 独立 性 ,可 以 被 
任何 需要 计算 三 角形 面积 的 其 他 程序 单元 调用 。 

子 程序 最 初 就 是 一 种 节省 代码 的 机 制 。 在 一 个 加 工程 序 中 ,如 果 其 中 有 些 加 工 内 容 完 
全 相同 或 相似 ,为 了 简化 程序 ,可 以 把 这 些 重复 的 程序 段 单 独 列 出 ,并 按 一 定 的 格式 编写 成 
子 程 序 。 主 程序 在 执行 过 程 中 如 果 需 要 某 一 子 程序 ,可 通过 调用 指令 调用 该 子 程 序 , 子 程序 
执行 完毕 后 进程 返回 主 程序 ,继续 执行 后 面 的 程序 段 。 

子 程序 产生 的 男 一 个 原因 是 模块 化 程序 设计 思想 。 随 着 处 理 问题 的 规模 增 大 、 复 杂 程 
度 加 深 , 单 个 编程 者 很 难 独 立 完 成 有 所有 工作 ,需要 集合 团队 的 力量 才能 完成 ,这 了 就 需要 分 工 
协作 。 将 一 个 复杂 的 大 规模 问题 分 解 成 若干 个 简单 的 小 问题 ,针对 每 个 小 问题 建立 解决 该 
问题 的 子 程序 ,再 将 这 些 子 程序 按照 解决 复杂 问题 的 先后 顺序 逐次 调用 ,这 正 是 结构 化 、 模 
块 化 程序 设计 第 用 的 程序 设计 方法 。 

先 看 一 个 学 习 生 活 中 比较 常见 的 问题 ; 某 班级 有 55 名 和 学生, 本 学 期 共 学 习 5 门 功课 ， 
期 末 考 试 结束 后 ,需要 统计 每 个 学 生 的 总 成 绩 .平均 成 绩 、 名 次 ,汇总 不 及 格 学 生 的 名 单 以 便 
通知 补考 ,汇总 前 10 名 名 单 以 便 发 放 奖 学 金 。 

该 问题 相对 前 面 所 遇 到 的 问题 略 显 复杂 ,实际 班级 活动 中 通 第 由 班 委 会 的 儿 名 同学 协 
作 完 成 ,在 编写 解决 该 问题 的 程序 时 也 可 以 采用 多 人 合作 的 方式 。 人 合作 就 需要 分 工 , 图 9.2 
给 出 了 将 该 复杂 任务 分 解 成 各 个 简单 任务 的 任务 分 解 及 分 层 结构 图 。 


一 


图 9.2 班级 成 绩 处 理 问 题 的 任务 分 解 及 分 层 结构 图 
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编写 该 问题 的 程序 时 ,可 采用 自 顶 而 下 或 自 下 而 上 的 方式 逐 层 设计 和 编写 程序 。 所 谓 
自 顶 而 下 方式 就 是 先 编写 解决 总 问题 的 主 程序 ,后 编写 解决 各 个 子 问 题 的 子 程序 , 自 下 而 上 
方式 正好 相反 。 但 无 论 采 取 何 种 方式 ,都 需要 事先 确认 好 所 用 数据 类 型 和 子 程序 的 名 称 、 参 
数 个 数 、 类 型 等 。 由 于 设计 和 编写 总 问题 .各 个 子 问 题 对 应 的 程序 是 彼此 独立 \ 互 不 干扰 的 ， 
故 可 由 多 人 同时 并 行 完 成 ,这 就 实现 了 分 工 协作 。 

对 于 上 述 问题 ,我 们 采用 自 下 而 上 的 方式 设计 和 编写 程序 。 既 然 任 务 被 分 解 成 5 个 子 
任务 ,这 里 假定 由 5 位 同学 来 完成 子 程序 的 编写 ,第 6 位 同学 对 所 有 和子 程序 进行 组 装 , 编 写 
主 程序 。 大 家 约定 用 整 型 数组 存放 所 有 学 生 的 信息 ,学 生 姓 名 用 其 学 号 代替 (还 未 学 习 派 生 
类 型 的 数据 ,读者 可 在 派生 类 型 学 习 后 尝试 修改 以 下 程序 ) ,存放 在 数组 第 1 列 , 第 2 一 6 列 
存放 5 门 课程 成 绩 , 第 7 列 存 放 总 成 绩 , 第 8 列 存 放 平 均 成 绩 , 第 9 列 存放 名 次 。 各 个 编程 
同学 癌 其 他 同学 明确 自己 所 编写 子 程 序 的 类 型 .名 称 , 参 数 个 数 和 类 型 。 

第 1 位 同学 编写 的 子 程序 其 功能 是 实现 学 生成 绩 的 录入 。 子 程序 类 型 为 子 例 行 子 程 
序 ,程序 名 CHENGJI_INPUT, 有 3 个 形 参 ,第 1 个 是 二 维 整 型 数组 ,第 2、3 个 为 此 二 维 数 
组 的 行 数 和 列 数 参数 , 均 为 整 型 。 程 序 如 下 : 

SUBROUTINE CHENGJI INPUT(A,M,N ) 

INTEGER M,N 

INTEGER A(M,N— 3) 

DOI=1,M 

DOJ=1,N-3 
READ( * , * ) A(I,J) ! 学 习 文件 后 ,可 以 从 文件 读 取 数据 ,给 数组 元 素 赋值 
ENDDO 


ENDDO 
END 


第 2 位 同学 编写 的 于 程序 其 功能 是 计算 每 个 学 生 的 总 成 绩 和 平均 成 绩 。 子 程序 类 型 为 
子 例 行 子 程序 ,程序 名 CHENGJL SUM_AVE, 有 3 个 形 参 ,第 1 个 是 二 维 整 型 数组 ,第 2、3 
个 为 此 二 维 数组 的 行 数 和 列 数 参 数 , 均 为 整 型 。 程 序 如 下 : 


SUBROUTINE CHENGJI SUM RMVE(CHENGJI, M,N) 
INTEGER M,N 
INTEGER CHENGJI(M, N) 
DOI=1,M 
DOJ=2,N-3 
CHENGJI(I,N— 2) = CHENGJI(I,N— 2) + CHENGJI(I,J) 
ENDDO 
CHENGJI(I,N— 1) = CHENGJI(I,N— 2)/5 
ENDDO 
END 


第 3 位 同学 编写 的 子 程序 其 功能 是 计算 每 个 学 生 的 名 次 。 子 程序 类 型 为 子 例 行 子 程 
序 ,程序 名 CHENGJIL MINGCI, 有 3 个 形 参 ,第 1 个 是 二 维 整 型 数组 ,第 2 .3 个 为 此 二 维 数 
组 的 行 数 和 列 数 人 参数 , 均 为 整 型 。 程 序 如 下 : 


SUBROUTINE CHENGJI MINGCI(CHENGJI, M,N) 
INTEGER M,N,K 
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INTEGER CHENGJI(M,N) 
DOI=1,M 

K=0 

DOJ=1,M 

IF(CHENGJI(J,N-— 2)> CHENGJI(I,N—-2))K=K+1 

ENDDO 

CHENGJI(I,N)= K+1 
ENDDO 
END 


第 4 位 同学 编写 的 子 程序 其 功能 是 统计 不 及 格 学 生 的 信息 。 子 程序 类 型 为 子 例 行 子 程 
序 ,程序 名 CHENGJI_BUJIGE, 有 3 个 形 参 ,与 上 面子 程序 中 的 形 参 相同 。 程 序 如 下 : 


SUBROUTINE CHENGJI BUJIGE(CHENGJI,™M,N) 
INTEGER M,N,K 
INTEGER CHENGJI(M, N) 
DOI=1,M 
DOJ=2,N-3 ! 只 要 有 一 门 课程 不 及 格 ,就 输出 该 学 生 的 所 有 信息 
IF(CHENGJI(I,J)< 60)THEN 
PRINT 10, (CHENGJI(I, K),K= 1,N) 
EXIT 
ENDIF 
ENDDO 
ENDDO 
10 FORMAT( 18, 514, I5, I4, I3) 
END 


第 5 位 同学 编写 的 子 程序 其 功能 是 统计 前 10 名 学 生 的 信息 ( 含 第 10 名 )。 子 程序 类 型 
为 子 例 行 子 程序 ,程序 名 CHENGJI JIANGLI, 有 4 个 形 参 ,前 3 个 与 上 面子 程序 中 的 形 参 
相同 ,第 4 个 为 输出 前 几 名 的 控制 参数 。 其 程序 如 下 : 


SUBROUTINE CHENGJI JIANGLI(CHENGJI,M,N,K) 
INTEGER M,N,K 
INTEGER CHENGJI(M, N) 
DOI=1,M 
IF(CHENGJI(I,N)<= K) PRINT 10, (CHENGJI(1,J),J= 1,N) 
ENDDO 
10 FORMAT( 18, 514, I5, I4, 13) 
END 


第 6 位 同学 编写 主 程序 ,将 前 5 位 同学 编 写 的 子 程 序 进 行 组 站 。 其 程序 如 下 : 


PROGRAM ZHU 
INTEGER STUDENT(55,9) 

CALL CHENGJI INPUT(STUDENT, 55,9) 

CALL CHENGJI SUM AVE(STUDENT,55,9) 
CRLL CHENGJI MINGCI( STUDENT, 55,9) 
CALL CHENGJI BUJIGE(STUDENT, 55,9) 
CALL CHENGJI JIANGLI(STUDENT,55,9,10) 
END 
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程序 中 第 3.4.5.6、7 行 出 现 了 一 个 新 的 命令 “CALL” ,在 程序 中 的 意义 就 如 同 其 英文 
原意 “调用 ”的 意思 ,所 以 第 3 行 的 意思 是 “调用 一 个 名 字 叫 做 CHENGJI_INPUT 的 子 

将 上 面 编 写 的 每 个 程序 单元 作为 一 个 独立 的 源 程 序 文 件 ,插入 到 Visual Fortran 6. 5 
编译 系统 的 同一 个 项 目 中 ,分 别 编 译 每 个 子 程序 单元 ,再 编译 主 程序 ,然后 构建 可 执行 文件 ， 
运行 该 可 执行 文件 即 可 获得 最 终结 果 。 对 于 Visual Studio 环境 下 的 Intel Visual Fortran 
编 详 角 ,可 百 接 对 项 目 或 任意 源 程序 文件 执行 “生成 解决 方案 ?操作 ,系统 会 目 动 编译 每 个 源 
程序 文件 并 将 它们 连接 ,构建 成 一 个 可 执行 文件 。 

从 上 面 程序 的 编写 中 可 以 看 出 ,由 于 总 问题 被 分 解 成 各 个 独立 的 子 问 题 ,使 得 编程 者 实 
际 面 对 问 题 的 规模 缩小 ,并 且 问 题 的 复杂 性 局 限 在 一 个 小 的 范围 内 , 即 当 前 任务 单元 内 ,这 
就 是 采用 结构 化 程序 设计 方法 为 什么 能 大 大 降低 程序 设计 复杂 性 的 原因 。 

总 之 , 子 程序 产生 的 原因 主要 有 以 下 两 点 。 

J 实现 相同 或 相似 代码 的 重复 利用 ,减轻 编程 负担 。 

G 分 解 任务 ,降低 任务 复杂 度 ,适应 社会 分 工 需 求 , 实 现 协 作 编 程 。 


9.1.2 FORTRAN 子 程序 


和子 程 序 又 叫 过 程 , 通 篆 将 相对 独立 的 、 经常 使 用 的 功能 抽象 为 子 程序 。 子 程序 编 与 
好 以 后 可 以 被 重复 使 用 ,使 用 时 可 以 只 关心 子 程序 的 功能 和 使 用 方法 ,而 不 必 去 关心 它 
的 具体 实现 。 这 样 有 利于 程序 代码 重复 利用 ,是 编写 高 质量 .高 水 平 、 高 效率 程序 的 有 效 
手段 。 

FORTRAN 语言 中 的 子 程序 主要 表现 为 函数 和 子 例 行 子 程 序 。 所 谓 消 数 是 指 只 产生 
一 个 运算 结果 , 且 由 函数 名 将 运算 结果 返回 给 主 调 程 序 单元 的 子 程序 。 上 面 计 算 三 角形 面 
积 的 子 程序 TRI_AREA(X,Y,Z) 就 是 限 数 ,每 调用 一 次 就 产生 一 个 给 定 参 数 下 的 面积 值 ， 
并 由 函数 名 TRI_AREA 将 面积 值 返回 给 主 程序 。 所 谓 子 例 行 子 程序 是 指 仅 完 成 某 些 操作 
或 完成 某 些 操作 的 同时 产生 多 个 处 理 结 果 , 且 只 能 通过 CALL 语句 被 调用 的 子 程序 ,如 上 
面 成 绩 处 理 问 题 中 的 5 个 子 程序 都 是 子 例 行 子 程序 ,其 中 CHENGJI_BUJIGE 和 
CHENGJLJIANGLI 仅 执行 痛 选 并 输出 的 操作 ,其余 3 个 子 程序 则 对 每 个 学 生 信 息 进行 加 
工 并 将 加 工 结果 返回 主 程序 。 

在 FORTRAN95 中 ,无 论 是 函数 还 是 子 例 行 子 程序 ,都 可 划分 为 标准 子 程 序 和 用 户 自 
定义 子 程序 。 标 准 子 程序 是 指 FORTRAN 系统 预先 编 详 好 的 .能 被 直接 调用 执行 的 子 程 
序 , 如 SIN(X)、LOG(X)、MOD(M,N) 是 标准 痕 数 ,RANDOM(X) 是 生成 随机 数 的 标准 子 
例 行 子 程序 ,GETDAT(YEAR,MONTH,DAY) 是 获取 系统 时 间 的 标准 子 例 行 子 程序 。 用 
户 自 定 义 子 程序 是 用 户 根 据 实际 需要 自行 设计 和 编写 的 子 程序 。 用 户 自 定义 子 程序 可 用 于 
求解 任何 特殊 问题 ,只 有 求解 通用 性 较 强 问题 的 子 程序 才 会 被 FORTRAN 系统 吸收 ,转变 
为 标准 子 程序 。 此 外 , 子 程序 按 所 处 的 位 置 关系 又 可 划分 为 内 部 子 程序 .外 部 子 程序 和 模块 
子 程序 。FORTRAN95 的 子 程序 分 类 如 图 9. 3 所 示 。 

在 学 习 子 程序 具体 内 容 之 前 , 先 看 一 个 简单 的 子 程 序 使 用 实例 。 

【 例 9-1】 阅读 下 列 程序 ,说 出 每 个 程序 单元 的 身份 和 功能 ,并 上 机 调试 , 抓 取 程序 运 
行 结 有 果 。 


标准 函数 | 
语句 函数 
图 数 
用 户 自 定义 孙 禾 J 内 部 函数 
”外 部 函数 
FORTRAN9S 民 喘 国 数 
子 程序 
标准 子 例 行 子 程序 
了 例 行 子 程序 内 部 子 例 行 子 程 序 
用 户 目 定义 子 例 行 子 程 友 外 尼子 例 行 子 程序 
模块 子 例 行 子 程序 
图 9.3 ”FORTRAN95 子 程序 分 类 
程序 如 下 : 
PROGRAM EXAM9 1 
CALL STAR 1! 调用 子 程 序 STAR 
CALL MESSAGE( ) 1! 调用 子 程 序 MESSAGE 
CALIL, STAR ! 再 调用 子 程序 STAR 
END 
SUBROUTINE STRAR ! STAR 子 程序 
PRINT 关 ， 关 关 关 关 关 关 关 光 关 尖 关 关 关 美 并 半 证 关 关 关 
END 
SUBROUTINE MESSAGE( ) !1 MESSAGE 子 程序 
PRINT x* ," hello! " 
END 


程序 运行 结果 如 图 9.4 所 示 。 


图 9.4 例 9-1 运行 结果 


观察 前 文中 出 现 的 主 程序 .函数 和 子 例 行 子 程序 ,体会 其 编写 .执行 过 程 , 可 以 发 现 以 下 
几 点 。 

(1) 子 程序 和 主 程序 非常 相像 ,同样 包括 变量 的 说 明和 对 变量 的 操作 ,编写 思路 也 基本 

- 致 ,只 是 主 程序 可 以 没有 名 称 , 但 子 程序 必须 要 有 和 名称 , 且 子 程序 一 般 不 需要 考虑 变量 的 
输入 ,因为 变量 的 值 可 巾 调用 它 的 程序 传递 或 共享 给 它 。 

(2) 子 程序 都 有 一 个 身份 识别 关键 字 。 子 例 行 子 程序 以 SUBROUTINE 作为 身份 识别 
标记 ,而 函数 以 FUNCTION 作为 身份 识别 标记 。 子 程序 程序 名 后 一 般 有 一 对 括号 ,括号 内 
是 子 程序 的 虚 参 ( 形 参 ) 列 表 , 调 用 子 程序 时 , 主 调 程序 单元 中 子 程序 名 后 括号 内 的 实 参 列表 
要 与 子 程序 中 虚 参 列表 按 顺 序 一 一 对 应 。 子 程序 和 主 程 序 均 以 END 语句 作为 结束 。 

(3) 子 程序 和 主 程序 的 最 大 不 同 之 处 在 于 子 程 序 不 能 独立 运行 ,而 主 程序 可 以 独立 运 
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行 。 子 程序 要 想 实现 其 功能 ,就 必须 了 百 接 或 间接 被 主 程序 调用 ,和 主 程序 单元 一 起 组 成 一 个 
实用 程序 。 因 此 ,一 个 程序 可 以 不 含 子 程序 (也 可 以 含有 多 个 子 程序 ) ,但 不 能 没有 主 程序 ， 
且 主 程序 只 能 有 一 个 。 

(4) 主 程序 、 子 程序 可 以 各 日 独立 为 源 程序 文件 ,也 可 以 放 在 同一 个 源 程序 文件 中 , 当 
在 同一 个 源 程 序 文 件 中 时 , 主 程 序 并 不 一 定 要 放 在 程序 的 开头 , 它 可 以 放 在 程序 中 的 任意 
位 置 。 

(5) 程序 执行 时 总 是 从 主 程序 单元 的 第 一 行 开 始 , 按 流 程 执行 每 一 条 语句 , 当 遇 到 调用 
子 程序 的 语句 时 ,流程 跳 转 到 被 调用 子 程 序 的 弟 一 行 , 并 按 子 程序 的 流程 朋友 执行 相应 语 
句 , 耳 至 过 到 子 程序 中 的 返回 语句 后 ,流程 再 次 回 到 主 调 程序 相应 位 置 。 主 程序 的 程序 代码 
一 开始 就 会 被 执行 ,而 子 程 夺 不 会 日 动 执 行 , 它 需要 被 别 的 程序 “调用 ” 才 会 执行 ,这 就 是 它 
之 所 以 被 称 为 * 子 ”的 原因 。 


9.2 语句 阻 数 


前 面 已 介绍 过 ,在 FORTRAN 程序 中 可 以 直接 调用 标准 函数 (内 部 函数 ), 如 调用 数学 
孙 数 SIN COS 等 ,这 对 用 户 是 非常 方便 的 。 但 是 ,常常 会 遇 到 一 些 在 标准 函数 库 中 没有 的 
函数 运算 ,这 时 用 户 必 须 自己 在 程序 中 定义 所 需要 的 函数 ( 即 用 户 自 定义 函数 ) ,然后 再 来 调 
用 它 。 

例如 ,计算 平面 内 任意 两 点 之 间 的 距离 ,如果 知道 点 在 平面 内 的 坐标 ,就 可 以 通过 建立 
一 个 简单 的 数学 函数 关系 实现 两 点 间距 离 的 求解 。 当 用 两 个 实 型 变量 存放 平面 内 一 个 点 的 
两 个 坐标 值 时 , 孙 数 关系 可 以 描述 为 : 


DISTANCE1 (X1, Y1, X2, Y2) = SQRT( (X1 — X2) x* 2 + (Y1 ~ Y2) xx2) 
用 一 个 复 型 变量 存放 一 个 点 的 两 个 坐标 值 时 ,也 数 关系 又 可 以 描述 为 : 
DISTANCE2(P1,P2) = ABS(P1 ~ P2) 


DISTANCE1 和 DISTANCE?2 不 是 FORTRAN 编译 系统 自 带 的 标准 函数 ,如 要 使 用 ， 
就 必须 日 己 编 写 。 

上 述 函 数 关 系 特别 简单 ,人 简单 到 仪 需要 一 个 数学 表达 式 就 可 以 描述 清楚 。 实 际 上 ,这 样 
的 价 单 函数 关系 在 求解 实际 问题 ,特别 是 在 求解 有 关 科 学 与 工程 数值 计算 问题 时 比较 党 
见 。 如 : 

。 已 知 圆 半径 ,计算 圆 面 积 的 图 数 可 以 撒 述 为 : A(r)= 二 zr 

。 三 角形 半 周 长 的 数学 表达 式 p= 二 (zx 十 y 十 z)/2 可 用 因数 摘 述 为 : 

六 (zyyz) = (XT yz)/2 
。 三 角形 面积 公式 s 二 Vp(p 一 xX)(p 一 y)(p 一 z) 可 通过 骨 套 哨 数 摘 述 为 ， 
中 一 J sO— yp(rs ys2) 一 二) 


”角度 转化 为 弧度 的 表达 式 rad 一 [| z1 十 二 二 5 5 | 可 用 函数 撒 述 为 ， 
pe pf 
md (zlsr2sr3) = jg0 nes Ds 60 0 | 
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对 于 上 面 只 用 一 个 数学 表达 式 就 能 描述 清楚 的 简单 负数 ,FORTRAN95 通 篆 不 使 用 蜗 
数 子 程 序 的 形式 定义 其 功能 ,而 是 采用 请 句 函 数 的 形式 定义 其 功能 。 

先 来 看 一 个 比较 熟悉 的 数学 问题 的 两 种 人 处理 方法 ,从 中 体会 语句 函数 的 执行 。 

【 例 9-2】 求 函数 y= 二 x 十 x 十 1 在 x 二 1.0、3.0、4.0、7.0.6.5 时 的 值 。 

分 析 : 这 是 一 个 重复 计算 问题 ,虽然 X 的 取 值 没有 规律 ,但 消 数 关系 唯一 , 故 依然 可 以 
通过 循环 处 理 重 复 计 算 问 题 。 也 可 以 使 用 语句 函数 编写 计算 表达 式 , 通 过 调用 语句 商 数 实 
现 重复 计算 。 

使 用 循环 方法 编写 的 程序 如 下 : 

PROGRAM EXAM9 2 1 
DOI=1,5,1 
READX ,XX 
PRINT 10," 当 X=",X," 时 函数 y=x :+x+1 的 值 为 : ",Xxx2+X+1 
ENDDO 
10 FORMAT(A,F4.1,A,F6.1) 
END 

该 程序 运行 时 ,每 执行 循环 体 一 次 需要 输入 一 个 数据 ,输出 一 个 计算 结果 ,人 机 交互 次 
数 较 多 ,比较 费时 ,运行 结果 如 图 9.5 所 示 。 图 中 描述 函数 具体 关系 的 字符 没有 打印 出 来 ， 
是 因为 Word 文档 中 的 图 数 关 系 是 公式 编辑 硕 编 辑 的 ,复制 粘贴 到 FORTRAN 编译 环境 的 
文本 编辑 器 中 时 发 生 了 丢失。 


国 管理 员 : "HAvN9 2_1\9 . 


x- 1 -9 时 函数 的 慎 为 : . rr 
证 F ere 
当 x- 3-9 时 函数 的 值 为， \ 

当 x= 4.8 时 函数 的 值 为 ， 


x- ?7-6 时 台数 的 人 为 


图 9.5 例 9-2 方法 1 运行 结果 图 9.6 例 9-2 方法 2 运行 结果 


使 用 语句 困 数 方法 编写 的 程序 如 下 : 

PROGRAM EXAM9 2 2 

F(X) =XxX+X+1.0 ! 语 句 函 数 F(X) 的 定义 语句 

PRINT 10, "x=",1.0,3.0,4.0,7.0,6.5 

PRINT 20, "F(X) = ",F(1.0),F(3.0),F(4.0),F(7.0),F(6.5) 
10 FORMAT(A5,5F5.1) 
20 FORMAT(A5, 5F5.1) 

FND 


该 程序 中 第 2 行 的 作用 就 是 用 户 自己 定义 了 一 个 语句 函数 F(X)。 请 句 “F(X) 一 Xx 
X 十 义 十 1.0” 是 语句 函数 定义 语句 , 它 定 义 了 一 个 名 为 F 的 语句 函数 ,该 函数 只 有 一 个 类 型 
为 实 型 的 日 变量 X( 在 FORTRAN 中 称 为 形 参 或 虚 参 ) ,函数 关系 为 “Xx* 义 十 义 十 1. 0”。 
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语句 图 数 定 义 语 句 是 一 个 非 执 行 语句 , 它 的 作用 仅仅 在 于 定义 FEF(X) 和 上 月 变量 X 的 某 
种 数学 计算 关系 。 

程序 第 4 行 的 功能 是 输出 语句 函数 F(X) 在 义 分 别 为 1.0、3.0、4.0、7.0 和 6.5 时 的 值 ， 
这 些 值 依次 可 用 F(1.0)、F(3.0)、F(4.0)、F(7.0)、F(6.5) 表 示 。 输 出 列表 中 的 输出 项 
“F(1.0)” 是 对 语句 函数 F(X) 的 第 一 次 调用 , 实 参 1.0 在 调用 时 赋值 给 形 参 X, 应 用 被 赋值 
的 形 参 X 对 语句 函数 定义 语句 中 的 表达 式 Xx* X 十 X 十 1. 0 进行 求 值 运算 ( 即 F(1.0) 二 1.0x* 
1.0 十 1.0. 十 1.0 王 3.0) ,将 求 值 绪 果 (3.0) 返 回 到 调用 位 置 ( 即 F(1.0) 所 在 位 置 ) 。F(3.0)、 
F(4.0)、F(7.0) 和 FF(6.5) 的 求法 以 此 类 推 。 

比较 上 面 两 种 方法 编写 的 程序 可 以 看 出 ,采用 声 句 函数 使 得 程序 更 为 简练 ,执行 效率 也 
更 高 。 图 9.6 给 出 了 语句 国 数 方法 的 运行 结果 。 


9.2.1 语句 函数 的 定义 


如 例 9-2 所 示 ,在 程序 中 有 时 需要 在 多 处 进行 同样 的 某 种 表达 式 计算 ,而 这 种 计算 又 不 
是 某 个 内 部 函数 所 能 完成 的 ,这 时 ,程序 设计 者 可 以 自己 来 定义 一 个 语句 函数 ,通过 调用 语 
句子 数 来 实现 这 种 特殊 的 运算 。 

语句 函数 必须 在 需要 调用 该 限 数 的 程序 单元 内 ,用 一 条 语句 进行 定义 ,因此 称 为 语句 

要 使 用 语句 函数 求解 问题 ,就 必须 在 使 用 前 通过 专门 的 定义 语句 来 定义 该 语句 函数 ,之 
后 才能 在 程序 中 像 调用 内 部 男 数 那样 来 调用 该 语句 图 数 。 

语句 函数 的 定义 形式 如 下 : 


1. 语句 国 数 名 

语句 函数 名 的 命名 方法 同 变量 名 的 命名 方法 。 如 果 此 语句 之 前 没有 用 类 型 说 明 语句 对 
其 进行 类 型 说 明 , 则 遵循 I-N 规则 , 硅 用 类 型 说 明 语 句 说 明 语 句 函 数 的 类 型 , 则 必须 将 类 型 
说 明 请 句 放 在 语句 函数 定义 语句 之 前 。 

需要 注意 的 是 ,语句 困 数 名 不 能 与 本 程序 单元 中 的 任何 其 他 变量 同名 。 

例如 : 

ROOT1 (A,B,C)= (B+SORT(Bx*x2—4.0x*xAxC))/(2.0*2A) 

DA(A,B) = SORT(Bx B+AxAx*xA) 

INTEGER DB 

DB(A,B) = SQRT(Bx B+AxA*xA) 
部 是 合法 的 语句 函数 定义 语 避 。 前 两 个 语句 羡 数 ROOT1 和 DA 的 返回 值 为 实 型 ,最 后 一 
个 语句 图 数 DB 因为 在 前 面 已 进行 了 整 型 类 型 说 明 , 因 此 它 的 返回 值 为 整 型 ,是 平方 根 值 的 

2. 语句 国 数 中 的 虚拟 参数 (简称 虚 参 ) 

语句 函数 名 后 一 对 括号 中 的 Xi 、X,、…、Xw 代表 语句 函数 的 自 变量 , 称 为 虚拟 参数 (或 
虚拟 变 元 、 哑 元 ) ,简称 虚 参 。 它 们 本 身 是 没有 值 的 ,只 有 在 函数 调用 时 用 实在 自 变量 (实在 
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人 参数) 代替 虚 参 ,才能 得 到 晒 数 值 。 

虚 参 在 形式 上 与 普通 变量 名 相同 , 虚 参 之 间 不 能 同名 。 虚 参 只 能 用 变量 来 表示 ,不 允许 

如 果 语 句 函 数 没 有 虚 参 ,一 对 圆 括号 也 必 不 可 少 。 虚 参 多 于 一 个 时 ,它们 之 间 用 逗号 
隅 开 。 

语句 图 数 定 义 霹 句 中 的 虚 参 只 是 目 变 量 的 符号 ,用 来 在 形式 上 表示 右边 表达 式 中 目 变 
量 的 个 数目 变 量 的 类 型 和 在 表达 式 中 的 作用 , 它 不 代表 任何 值 。 因 此 ,图 数 定义 语句 写成 
以 下 两 种 形式 (使 用 不 同名 字 的 目 变 量 ) ,作用 完全 相同 。 

F(X) =XxX+X+1.0 

F(Y)}=YxY+Y+1.0 


由 于 虚 参 不 代表 实在 的 值 ,因此 它 可 以 与 程序 中 的 变量 同名 。 例 如 : 

F(X) = Xx X+X+1.0 

X=3.0 

Y= (X+ 3.0})/2.0 

Z=F(1.0) +F(2.0) +F(3.0) 

T= F(X) 

上 述 程 序 段 中 第 1 行 的 X 是 语句 函数 的 虚 参 ,第 2 行 的 X 是 变量 名 ,它们 彼此 独立 ,无 
任何 关系 。 第 3 行 计算 出 Y 的 值 等 于 3.0。 第 4 行 调用 语句 函数 ,分 别 将 1.0、2.0、3.0 代 
蔡 语 名 图 数 定义 语句 中 右边 表达 式 中 的 X, 计 算出 F(1.0)、F(2.0)、F(3.0)。 第 5 行 F(X) 
中 的 X 是 实 参 变量 名 ,当前 值 为 3.0, 此 时 F(CX) 相 当 于 F(3.0) 。 

虚 参 变量 的 类 型 可 以 用 隐 含 规则 来 说 明 ,也 可 以 用 类 型 语句 说 明 。 但 应 注意 , 若 在 同一 程 
序 单 元 中 有 与 虚 参 同名 的 变量 时 , 则 虚 参 和 该 同名 变量 都 具有 类 型 说 明 语句 所 说 明 的 类 型 。 

3. 语句 国 数 中 的 表达 式 

在 定义 语句 函数 的 语句 中 ,峰值 号 右边 的 表达 式 可 以 是 算术 表达 式 、 人 逻辑 表达 式 或 宇 符 
串 表达 式 。 在 这 个 表达 式 中 ,除了 必须 包含 全 部 相关 虚 参 外 ,还 可 以 包 合 和 常量、 变量 .数组 元 
素 、 内 部 函数 和 已 经 定义 过 的 语句 函数 。 

4. 定义 语句 困 数 应 遵循 的 规则 

(1) 当 函 数 十 分 简单 ,用 一 条 语句 足以 定义 时 (和 若 图 数 关 系 的 表达 较 长 ,允许 使 用 续 
行 ) ,才能 用 语句 函数 的 形式 定义 函数 。 

(2) 语句 函数 定义 语句 是 非 执 行 语句 。 它 应 该 放 在 所 有 可 执行 语句 之 前 和 所 有 的 类 型 
说 明 请 句 之 后 。 

(3) 请 句 函 数 只 有 在 其 所 在 的 程 厅 单 元 中 才 有 意义 。 换 言 之 ,不 能 调用 其 他 程序 单元 
中 所 定义 的 语句 函数 。 语 句 函 数 也 不 能 作为 调用 子 程序 时 的 实 参 ,也 不 得 在 EXTERNAL 
语句 中 出 现 。 

(4) 语句 函数 定义 语句 中 的 虚 参 只 能 是 变量 名 ,不 能 是 常量 .表达 式 、 数 组 或 数组 元 素 。 

(5) 请 句 函 数 没 有 虚 参 时 ,无 论 在 语句 限 数 定义 语句 中 ,还 是 在 语句 函数 的 调用 语句 
中 ,语句 函数 名 后 面 的 一 对 括号 都 不 可 省 上 略 。 

(6) 语句 图 数 定义 语句 中 的 表达 式 可 以 包含 已 定义 过 的 语句 图 数 、 图 数 子 程序 (外 部 郴 
数 ) 或 内 部 函数 ,但 不 能 包含 自己 ,也 就 是 不 能 递归 调用 。 语 句 函 数 通 过 表达 式 得 到 一 个 隆 
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数值 , 限 数 名 与 雏 数 值 之 间 必 须 和 赋值 规则 一 致 ; 因此 ,不 能 把 字符 型 的 限 数 值 赋值 给 非 字 
符 型 的 函数 名 ,不 能 把 逻辑 值 赋值 给 一 个 非 逻 辑 类 型 的 函数 名 。 
以 下 请 句 函 数 定 义 语句 是 正确 的 ; 
(CD suM(A,B,C)=A+B+C 
AVER(A, B,C) = SUM(A,B,C)/3.0 


(2) IR(ID) = MOD(ID, 2) 


(3) LOGICAL XOR, X1, X2 
XOR( X1, X2) = . NOT. X1. AND. X2. OR. X1. AND. NOT. X2 


(4) SS(I,X,Y) =A(I)+ X * YY 


(3) F( ) =Xx5 ! 无 虚 参 的 语句 函数 
而 以 下 语句 曙 效 定义 二 句 则 是 非法 的 ,应 注意 避 例 : 

CD BUL(I,J,K) =3x 工 xx 可 ! 虚 参 K 在 表达 式 中 没有 出 现 
(2) ET(A,A) = SQRT(Ax 2.0)+A ! 虚 参 之 间 重 名 

(3) SF(B) =1.5- SF(B) ! 不 允许 出 现 递归 调用 

OD sB(2,X,A(2)) =Xxx2 ! 虚 参 不 能 为 常量 、 数 组 元 系 


(5) REAL AA(5); SD(AA,I) = AA(I)/5  ! 数 组 名 不 能 作为 虚 参 


9.2.2 语句 函数 的 调用 

语句 国 数 一 旦 定义 后 ,就 可 以 在 同一 程序 单元 中 调用 它 。 调 用 的 形式 和 调用 内 部 困 数 
- 样 , 即 用 实 参 代 蔡 虚 参 。 

- 般 格 式 为 : 

函数 名 ( 实 参 表 ) 

实 参 可 以 是 与 虚 参 类 型 一 致 的 变量 . 稼 量 或 表达 式 , 实 参 必 须 有 确定 的 值 。 图 数 按照 代 
和 人 的 实 参 的 值 , 根 据 定义 的 表达 式 计 算出 郴 数 值 。 

如 果 函 数 没 有 虚 参 ,一 对 括号 不 可 少 。 如 : 


ST( ) = SORT(4.586) + EXP(4.226) 
在 调用 ST 函数 时 ,也 必须 带 有 括号 。 如 : 
A= ST( )x* X+Y 
语句 函数 调用 时 , 实 参 也 可 以 是 语句 函数 。 例 如 : 


FUN (X) =X+1 


Y = FUN (EUN (A) ) 


此 处 的 A 必须 有 定义 ( 即 必须 有 上 有 具体 的 值 )。 
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9.2.3 语句 函数 应 用 举例 


【 例 9-3】 长 方 体 如 图 9. 7 所 示 。 五 组 a、b 和 h 的 值 如 表 所 示 , 试 分 别 求 出 对 应 的 对 角 
线 长 度 d. 

分 析 : 为 了 求 d, 必 须 先 求 出 上 底 的 对 角 线 c, 在 程序 中 可 定义 求 矩 形 对 角 线 的 语句 函 
数 diag(x,y) ,五 组 数 分 别 放 在 a.b、h 数组 中 。 程 序 编写 如 下 ， 


REAL A(5),B(5),H(5),D(5) 
DIAG(X,Y) = SORT(X xx 2+Y*x2) 
DOI=1,5 
READ * ,A (I),B (I),H (I) 
END DO 
p11,s Er 
C=DIAG(A(I), B(I)) 
D(I) = DIAG(C, H(I)) 
ENDDO 图 9.7 长 方 体 及 其 尺寸 表 
PRINT 100 
100 FORMAT(9X, 'A', 9X, 'B', 9X, 'H', 9X, 'D') 
PRINT 110, (A(I),B(I),H(I),D(I),I=1,5) 
110 FORMAT (5X, 4F9.3) 
END 


程序 运行 结果 如 图 9. 8 所 示 。 


2 .B99 5 


5 .98 站 55 

5 5 

半 右 . 回回 回 i1i1 .688 12 。 回回 加 

| 13.8690 14.069 15.000 
请 放任 电 和 吾 绒 . 。 。 本 


山 


图 9.8 例 9-3 运行 结果 


【 例 9-4】〗 编写 程序 , 求 图 数 ln(a 十 V1 十 a  ) 在 a 点 处 的 导数 的 近似 值 。 
分 析 : 求 图 数 f 在 a 点 的 导数 可 由 以 下 差 商 公式 给 出 : 


f(aih)— f(a—h) 


ee 2h 


其 中 一 却 ,可 使 n 从 0 变化 到 15。 当 连续 两 次 求 出 的 两 个 导数 值 之 差 小 于 10 时 ,就 可 以 
认为 得 到 了 近似 导数 值 。 
程序 中 可 定义 两 个 语句 函数 ,f(a) 代 表 要 求 导数 的 函数 ,fun(a,h) 代 表 以 上 差 商 公式 ， 
求 村 数 点 的 值 放 在 变量 r+ 中。 在 程序 中 定义 了 一 个 逻辑 变量 WORK, 当 未 满足 精度 
要 求 时 ,使 WORK 为 “ 真 ”， 当 达到 精度 时 ,使 WORK 为 “ 假 "。 图 9.9 给 出 了 算法 流 
程 图 。 
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读 入 R 的 值 


当 WORKE 为 * 真 "， 并 且 N 友 15 


H =1.0/2.0**N 


X= FUN (R,; Hl) 


WORK=FALSE 


图 9.9 例 9-4 算法 流程 图 


程序 编写 如 下 : 


PROGRAM EXAM9 4 
LOGICAL WORK 
F(A) = ALOG(A + SQRT(1 + Ax*x A)) 
FUN(A,H) = (F(A+H)— F(A-H))/(2.0* H) 
READ * ,R 
PRINT x ,'R= ',R 
N=0 
XxX0 =0.0 
WORK = . TRUE. 
DO WHILE(WORK. AND. N. LE. 15) 
H=1.0 /2.0xxN 
X= FUN(R, H) 
IF(ABS(X— X0).LT.1E— 5) WORK = .FALSE. 
X00 = 
N=N+1 
ENDDO 
IF(N. LE. 15)THEN 
PRINT * ，'THE VALUES OF DIFFERENCE QUOTIENT IS: ', X 
ELSE 
PRINT * ,'N>15' 
ENDIF 
EMD 


程序 运行 结 末 如 图 9. 10 所 示 。 
国 管理 员 : "Hi\wf\shiyan\shiyan\Debug\shiyan.exe" 


5.500000 
| THE VALUES OF DIFFERENCE QUOQTIENT 18: 


请 按 任 意 键 继续 . . . 


图 9.10 例 9-4 运行 结果 


第 9 章 函数 与 子 程序 I， 


9.3 了 遂 数 子 程序 


语句 图 数 只 能 解决 一 些 较 简 单 的 问题 , 当 图 数 关 系 比 较 复 二 ,用 一 个 请 名 无 法 定义 时 ， 
就 震 要 用 到 师 效 子 程序 。 


先 来 看 一 个 实例 。 
《1 十 2 十 3) 二 (1 十 2 十 3 十 4) 十 (1 十 2 十 3 十 4 十 5) ow 
【 例 9-5】 求 y 二 0 于 53T4T5T6)T(ToT3Tr4+sTr6F7) 的 但。 


分 析 : 要 计算 的 表达 式 看 似 复 杂 ,其 实 都 是 由 等 差 序 列 的 和 值 构成 ,因此 ,只 要 能 分 别 
求 出 每 一 个 等 差 序 列 的 和 ,再 代 人 表达 式 计 算 就 可 以 了 。 所 以 定义 一 个 求 等 差 序 列 和 值 的 
图 数 f(x), 当 z=3、4、5、6、7 时 ,分 别 求 出 函数 值 。 计 算 公 式 改 为 : 


A 
f(6) 十 f(7) 
参考 程序 如 下 : 
PROGRAM EXAM9 5 
N= 3 


! 利 用 公式 计算 了 的 值 ,公式 中 调用 了 F 函数 
Y= (F(N) +F(N+1) +F(N+2))/(F(N+3)+F(N+ 4)) 
PRINT x* ,Y 
END 
! 定 义 消 数 子 程序 
FUNCTION F(X) 

INTEGER 义 

F=0 

! 通 过 循环 求 等 差 序列 的 和 值 
DOI=1,xX 

F=F+I 
ENDDO 
FND 


图 9.11 例 9-5 运行 结果 


程序 运行 结果 如 图 9. 11 所 示 。 

程序 运行 从 主 程 序 单元 开始 ,在 主 程序 中 调用 了 5 次 下 图 数 。 

当 执 行 到 第 3 行 Y 一 (F(N) 十 F(N 十 1) 十 F(N 十 2))/(F(N 十 3) 十 F(N 十 4)) 时 ,首先 需 
要 计算 F(N) 的 值 ,程序 流程 从 主 程序 转向 困 数 子 程序 来 求 上 的 值 , 实 参 NCN=3) 和 虚 参 X 
结合 , 虚 参 X 获得 实 参 N 的 值 3, 通 过 三 次 求 和 循环 后 得 到 函数 的 值 为 1 十 2 十 3 二 6, 把 结果 
6 通过 赋值 语句 赋 给 函数 名 下 ,结束 循环 , 遇 到 END 语句 后 结束 函数 子 程 序 的 运行 ,程序 流 
程 返回 到 主 程序 中 调用 子 程序 的 地 方 , 巾 图 数 名 下 将 值 6 返回 到 主 程序 , 得 到 F(N) 的 值 
为 6。 

接 下 来 遇 到 F(N 十 1) ,第 二 次 调用 下 图 数 子 程序 。 将 实 参 N 十 1 和 虚 参 X 结合, 虚 参 X 
获得 实 参 N 十 1 的 值 为 4, 参 与 下 面 图 数 体 的 运算 ,通过 4 次 循环 运算 ,得 到 下 的 值 为 1 十 
2 十 3 十 4 二 10, 遇 到 END 语句 后 结束 函数 子 程序 的 运行 ,程序 流程 返回 到 主 程序 中 调用 子 
程序 的 地 方 ,由 函数 名 下 将 值 10 返回 到 主 程序 ,得 到 F(N 十 1) 的 值 为 10。 

接 下 来 F(N 十 2) .F(N 十 3)、F(N 十 4) 的 运算 与 此 完全 相同 ,不 再次 述 。F(N)、F(N 十 1)、 
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FCN 十 2) 、.F(N 十 3)、F(N 十 4) 的 值 都 计算 得 到 后 ,再 计算 得 到 六 的 值 ,并 输出 。 
9.3.1 荫 数 子 程序 的 定义 


通过 上 面 的 例子 可 以 看 到 ,函数 子 程序 是 以 FUNCTION 语句 开头 、 以 END 语句 结束 
的 一 个 程序 代码 段 ,该 程序 段 可 以 独立 存储 为 一 个 文件 ,也 可 以 和 调用 它 的 程序 单元 放 在 同 
一 个 程序 文件 中 和 存储。 图 效 子 程序 定义 的 一 般 格 式 是 : 
[类 型 说 明 符 ] FUNCTION 函数 名 ( 虚 参 表 ) 
函数 体 
END [FUNCTION [因数 名 ]] 
类 型 说 明 符 用 于 说 明 函 数 名 的 数据 类 型 ,也 就 是 函数 值 的 类 型 。 函 数 名 的 命名 规则 与 
变量 名 的 命名 规则 相同 ,这 循 标识 符 规 则 。 虚 参 可 以 是 简单 变量 和 数组 名 ,但 不 能 是 篆 数 、 
图 数 了 程序 定义 时 应 注意 以 下 问题 。 
(1) 对 函数 名 的 数据 类 型 说 明 , 既 可 以 放置 在 子 程 厅 类 型 说 明 关 键 字 FUNCTION 之 
前 ,也 可 以 放置 在 图 数 体 的 最 前 面 。 下 面 两 种 定义 方法 是 等 效 的 。 
(GD INTEGER FUNCTION FE(X1,X2) 
函数 体 
END 
人) FUNCTION F(X1,X2) 
INTEGER F 
也 数 体 
END 
上 述 两 种 定义 方法 都 说 明正 是 一 个 整 型 图 数 , 当 未 使 用 类 型 说 明 符 定义 图 数 类 型 时 ， 
商 数 值 的 类 型 遵守 IN 规则 。 
(2) 函数 不 能 有 同名 的 虚 参 。 虚 参 的 类 型 可 以 在 函数 体 中 进行 说 明 , 没 有 说 明 时 , 虚 参 
的 类 型 钵 守 I-N 规则 。 
(3) 因数 体 中 至 少 要 有 一 个 给 图 数 名 赋值 的 语 铝 (如 例 9-5 函数 子 程序 中 的 第 3、5 行 )。 
给 函数 名 赋值 的 语句 格式 是 : 
函数 名 = 表达 式 


注意 ,这 里 不 能 在 函数 名 后 带 上 圆 括号 。 

(4) 困 数 子 程序 的 定义 并 不 一 定 要 放 在 程序 代 人 码 的 最 开始 ,可 以 放 在 程序 中 的 任意 位 
置 ,程序 单元 之 间 彼 此 独立 。 

(5) 若 困 数 没 有 虚 参 ,在 定义 图 数 子 程序 时 ,图 数 名 后 面 的 一 对 括号 可 以 省 略 , 但 调用 
时 不 可 以 省 略 。 

【 例 9-6】 编写 一 个 求解 一 维 数组 指定 范围 内 所 有 数组 元 素 之 和 的 子 程序 。 

分 析 : 编写 程序 时 需要 明确 数组 的 类 型 ,鉴于 实 型 数据 较 整 形 数据 的 应 用 范围 大 ,这 里 
采用 实 型 。 数 组 范围 可 通过 起 始 数 组 元 素 和 终止 数组 元 素 的 下 标 反 映 , 这 里 及 用 整形 变量 
M 和 N 分 别 记录 起 始终 止 位 置 。 数 组 的 长 度 可 由 主 调 程序 单元 来 确定 , 子 程序 中 使 用 可 
调 数 组 的 形式 ,这 里 采用 整形 变量 KK 表示 数组 的 长 度 。 题 目的 运算 结果 只 有 一 个 , 故 可 采 
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用 具有 4 个 虚 参 的 图 数 子 程序 处 理 上 述 问 题 。 


REAL FUNCTION SUM ARRAY(A,K,M,N) 
REAL A(K) 

INTEGER K,M,N,I 

SUM ARRAY= 0.0 

DOI=M,N 

SUM ARRAY = SUM ARRAY + A(I) 
ENDDO 

END 


本 题目 虽然 只 要 求 编写 子 程序 ,但 由 于 子 程序 不 能 独立 运行 ,其 功能 是 否 正确 还 必须 通 
过 编写 主 程序 调用 才能 知道 ,因此 需要 设计 验证 算 例 。 这 里 以 “求解 长 度 为 10 的 一 维 实 型 
数组 从 第 2 个 到 第 8 个 所 有 数组 元 素 的 和 ”求解 长 度 为 6 的 一 维 实 型 数组 从 第 1 个 到 第 3 
个 所 有 数组 元 素 的 和 ”为 验证 算 例 ,编写 主 程序 如 下 ， 

PROGRAM YANZHENG 

REAL AA(10),BB(6) 


AA= (/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0/) 
BB= (/1.0,2.0,3.0,4.0,5.0,6.0/) 


PRINT * , SUM ARRAY(AA,10,2,8) es 
PRINT x* , SUM ARRAY(BB,6,1,3) 请 按 任意 键 继续 . 
END 
验证 程序 运行 结果 如 图 9. 12 所 示 ,结果 表明 所 编写 的 
子 程序 正确 实现 了 题目 要 求 的 功能 。 Oe I 


9.3.2 上 范 数 子 程 序 的 调用 


定义 果 数 子 程序 的 目的 是 为 了 在 程序 中 调用 。 不 仅 主 程 序 可 以 调用 因数 子 程序 , 困 数 
于 程序 也 可 以 调用 其 他 子 程序 ,甚至 于 调用 目 身 (递归 调用 )。 调 用 程序 称 为 主 调 程序 单元 ， 
而 被 调用 的 子 程序 称 为 被 调 程序 单元 。 调 用 图 数 子 程序 的 方法 和 调用 标准 函数 .语句 男 数 
的 方法 基本 相同 。 

图 数 子 程序 调用 的 一 般 格式 为 : 

函数 名 ( 实 参 列表 ) 

(1) 调用 时 用 实 参 代替 虚 参 , 实 参 和 虚 参 的 数据 类 型 要 一 致 , 实 参 可 以 是 常量 、 变 量 、 表 
达 式 \ 数组 名 、 数 组 元 素 和 过 程 名 ( 子 程序 名 ) 等 。 

(2) 主 调 程序 单元 的 变量 不 能 与 函数 子 程 序 同 名 ,但 可 以 和 函数 子 程 序 中 的 变量 同 
名 。 子 程序 单元 独立 地 拥有 属于 自己 的 变量 说 明 , 因 此 不 同 程序 单元 的 变量 彼此 是 不 相 
关 的 。 

(3) 函 数值 的 类 型 由 函数 子 程序 定义 单元 决定 ,与 调用 程序 单元 无 关 。 当 函数 名 的 类 
型 不 满足 TN 规则 时 ,应 在 调用 程序 单元 对 函数 名 的 类 型 做 出 说 明 ,否则 会 出 现 类 型 不 匹配 
的 错误 。 
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将 例 9-6 的 子 程序 修改 为 : 


REAL FUNCTION INT_ARRAY(A,K,M,N) ! 改 变 了 函数 名 ,起 始 字 符 工 
REAL A(K) 

INTEGER K,M,N,I 

INT ARRAY= 0.0 

DOI=M,N 

INT ARRAY = INT ARRAY + A(I) 

ENDDO 

END 


将 例 9-6 的 主 程序 修改 为 : 


PROGRAM YANZHENG 

REAL AA(10),BB(6) 

!RERL INT ARRAY ”去 掉 注 释 符 "!" 后 错误 会 消除 

AA= (/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0/) 
BB= (/1.0,2.0,3.0,4.0,5.0,6.0/) 

PRINT * ,INT ARRAY(AA,10,2,8) 

PRINT * ,INT ARRAY(BB, 6,1,3) 

END 


调试 程序 时 会 出 现 如 下 错误 提示 ， 

错误 1 error #7977: The type of the function reference does not match the type of the function 

definition. [INT ARRAY| 

去 掉 上 面 主 程序 第 3 行 的 注释 符 , 也 就 是 对 INT_ARRAY 函数 说 明 其 类 型 为 实 型 后 ， 
编号 7977 的 错误 就 会 消除 ,获得 与 例 9-6 相同 的 运行 结果 。 

(4) 不 能 调用 一 个 没有 定义 的 函数 子 程序 。 

(5) 调用 无 参 函 数 时 , 主 调 程序 单元 中 函数 名 后 面 的 括号 不 可 省 略 , 和 否则 该 函数 名 不 能 
被 识别 为 函数 名 ,只 能 被 识别 为 变量 。 例 如 ， 


REAL, FUNCTION F; FE= 5; END ! 定 义 了 无 参 困 数 了 

PROGRAM ZHU1 ;PRINT* ,F(); END  ! 程 序 运 行 结果 5.0 

PROGRAM ZHU2 ;PRINT * ,F; END ! 程 序 运行 结果 是 一 个 随机 数 -1.0737418E + 08,F 被 视 为 实 型 变 
量 ,不 存在 函数 的 调用 


【 例 9-7】 用 郴 数 子 程序 编写 一 个 判断 素数 的 程序 ,在 主 程序 中 输入 一 个 整数 ,输出 其 
是 否 是 素数 的 信息 。 

分 析 : 如 何 判 断 一 个 数 是 否 是 素数 在 前 面 已 讲解 过 ,这 里 设计 一 个 CHECKPRIME(CN) 郴 
数 , 负 责 检查 输入 的 整数 是 否 率 数 。 如 果 是 ,该 图 数 返 回 . TRUE. ,否则 返回 .FALSE. 。 

程序 编写 如 下 : 


PROGRAM EXAM9 7 


LOGICAL CHECKPRIME 1 说 明 要 调用 的 CHECKPRIME 函数 为 逻辑 型 
PRINT *, "请 输入 一 个 正 整 数 :" 
READ x ,N 


IF (CHECKPRIME(N)) THEN 
PRINT x* ,NM "是 素数 " 
ELSE 
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PRINT x ,N, "不 是 素数 " 


ENDIF 
END 


LOGICAL FUNCTION CHECKPRIME(M) ! 定 义 困 数 子 程序 CHECKPRIME 为 逻辑 型 
CHECKPRIME = . FALSE. 
J = SQRT(1.0*M) 


DOI=2,J 

IF (MOD(M, I) == 0)RETURN ! 有 被 整除 的 因子 , 非 素 数 , 返 回 到 主 调 程序 单元 .此 
! 时 上 国 数值 为 .FRLSE. 

ENDDO 

CHECKPRIME = . TRUE. ! 没 有 被 整除 的 因子 ,是 素数 ,图 数值 置 为 .TRUE. 

END 


说 明 : 子 程 序 中 RETURN 语句 的 作用 是 结束 子 程序 ,返回 到 主 调 程序 。 
程序 运行 结果 如 图 9. 13 所 示 。 


管理 员 : "Hi\vf\shiyam\shiyan\Debug\shryan.exe” 


/ 13 是 索 数 
hi 青 安 性 芋 键 大 综 时 
4 I 


而 
LJ 


图 9.13 例 9-7 运行 结果 


9.4 子 例 行 子 程序 


除了 函数 子 程序 外 ,FORTRAN 子 程序 还 有 一 种 子 例 行 子 程序 (SUBROUTINE)。 函 
数 子 程序 和 子 例 行 子 程序 都 是 子 程序 单元 ,两 者 的 区 别 在 于 : 函数 子 程序 的 名 字 代 表 一 个 
值 , 困 数 返回 值 存放 在 困 数 名 中 ,图 数 名 是 图 数值 的 体现 者 ,因此 对 男 数 名 要 做 类 型 说 明 ; 
而 子 例 行 子 程序 的 名 字 不 代表 一 个 具体 的 值 , 只 是 提供 调用 时 的 一 个 识别 符号 ,因此 需要 类 
型 说 明 。 子 例 行 子 程序 被 调用 时 运算 得 到 的 结果 奋 要 返回 给 主 调 程序 单元 ,并 不 是 由 子 程 
序 名 返回 给 主 调 程序 单元 ,而 是 通过 实 参与 虚 参 的 “虚实 结合 ”返回 给 主 调 程序 单元 。 从 使 
用 上 来 说 ,在 解决 一 个 问题 时 ,函数 子 程序 和 子 例 行 子 程序 是 可 以 相互 蔡 代 的 ,一 般 是 根据 
所 要 完成 任务 的 特点 来 选择 其 一 。 

在 9. 1 节 我 们 已 经 对 子 例 行 子 程序 有 了 一 些 认 识 , 下 面 再 来 看 一 个 子 例 行 子 程序 和 调 
用 子 例 行 子 程序 的 例子 , 它 的 作用 与 例 9-5 的 下 函数 一 样 , 用 来 求 出 等 差 序列 的 和 值 。 在 子 
例 行 子 程序 中 ,将 所 求 得 的 和 值 放 在 变量 S 中 ,由 于 虚 参 S 分 别 与 实 参 F3、F4、F5、F6、F7 
对 应 ,因此 , 主 程序 单元 中 的 F3、F4、F5、F6、F7 就 会 得 到 相应 的 值 。 

【 例 9-8】 用 子 例 行 子 程序 编写 程序 ,求解 例 9-5 。 

程序 编写 如 下 : 

PROGRAM EXAM9 8 

CALL F(3, F3) ! 调 用 子 例 行 子 程序 F, 得 到 值 F3 

CALL F(4,F4) 

CALL F(5, FS5) 
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CALL F(6,F6) 

CALL F(7,F"7) 

Y= (F3+F4+F5)/(F6 +F7) 
PRINT x* ,Y 

END 


SUBROUTINE F(N, S) ! 子 例 行 子 程序 

S=0 

DOI=1,N 

= 总 + 工 ! 累加 求 和 ,和 从 放 在 虚 参 变量 Ss 中 

ENDDO 

END 

程序 运行 结果 如 图 9. 14 所 示 ,与 图 9. 11 完全 相同 。 

程序 中 子 例 行 子 程序 下 通过 CALL 语句 被 调用 了 5 
次 ,每 一 次 会 计算 出 一 个 和 值 ,存放 在 虚 参 变量 S 中 ,通过 图 9.14 例 9-8 运行 结果 
虚实 结合 传递 给 相应 的 实 参 变量 ， 


9.4.1 子 例 行 子 程序 的 定义 


子 例 行 子 程序 必须 以 SUBROUTINE 语句 开头 ,以 END 语句 结束 。 

子 例 行 子 程序 定义 的 一 般 格 式 是 : 

SUBROUTINE 子 例 行 子 程序 名 ( 虚 参 表 ) 

程序 体 

END [SUBROUTINE [ 子 例 行 子 程序 名 ]] 

子 例 行 子 程序 名 的 命名 规则 和 变量 名 相同 ,只 是 用 来 表示 一 个 子 例 行 子 程序 ,不 代表 任 
何 值 。 

虚 参 可 以 是 变量 或 数组 名 等 ,但 不 能 是 数组 元 条 .和 常数、 表达 式 。 虚 参 是 于 例 行 : 
与 主 调 程序 单元 之 间 进 行 数据 传递 的 主要 渠道 , 当 虚 参 多 于 一 个 时 ,彼此 间 用 逗号 隅 开 。 没 
有 虚 参 时 , 子 例 行 子 程序 名 后 的 一 对 圆 括 号 可 以 省 略 。 

在 子 程序 体 的 代码 中 ,不 能 对 子 例 行 子 程序 的 名 字 赋 值 。 


9.4.2 子 例 行 子 程序 的 调用 

于 例 行 子 程序 调用 的 一 般 格 式 为 : 

CRLL 子 例 行 子 程序 名 ( 实 参 表 ) 

子 例 行 子 程序 的 调用 必须 用 一 个 独立 的 CALL 语句 来 实现 。 

当 于 例 行 子 程序 没有 虚 参 时 ,调用 格式 如 下 : 

CRLL 子 例 行 子 程序 名 

注意 ,此 时 于 例 行 子 程序 名 后 面 没有 一 对 圆 插 号 ,这 一 点 与 无 参 图 数 子 程序 的 情况 不 
同 ,具体 例子 参见 例 9-1 。 

于 例 行 子 程序 调用 的 其 他 注意 事项 和 胃 数 子 程序 的 调用 相同 。 

下 面 通 过 两 个 实例 来 进一步 了 解 子 例 行 子 程序 的 定义 和 调用 ,以 及 它 与 函数 子 程序 的 
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相同 点 与 不 同 点 ， 
【 例 9-9】 利用 子 例 行 子 程序 编写 程序 , 求 S=S1 十 S2 十 S3 十 S4 的 值 ,其 中 ， 
Q] 一 EE 
S1 一 1 十 二 十 三 十 … 十 
1 
100 
1 1 
ey 有 
2 200 


分 析 : 观察 S1、S2、S3 和 S4 的 表达 式 可 以 发 现 , 它 们 的 共同 点 是 级 数 求 和 ,是 级 数 的 一 
般 项 一 样 , 不 同 点 仅 是 级 数 的 项 数 不 一 样 。 为 了 解决 这 个 问题 ,可 以 定义 一 个 子 例 行 子 程 


序 ,用 于 求 > 一 的 值 , 然后 通过 调用 子 例 行 子 程序 求 得 S1、S2、S3 和 S4 的 值 , 再 去 求 


S 值 。 
程序 编写 如 下 : 
SUBROUTINE FCOUNT(N, S) 
S=0 
DOI=1,N 
Ss=S+1.0/1 ! 注 意 整 型 数 运算 的 结果 为 整 型 ,这 里 显然 需要 的 是 实数 
ENDDO 


PROGRAM EXRM9 9 
CALL FCOUNT( 50, S1) 
CALL FCOUNT( 100, S2) 
CALL FCOUNT(150, S3) 
CALL FCOUNT( 200, S4) 
S=S1+S2+S3+S4 
PRINT x* ,"S=",S 图 9.15 例 9-9 运行 结果 


END 


程序 运行 结果 如 图 9. 15 所 示 。 

【 例 9-10】 定义 一 个 冒 泡 排序 的 子 例 行 子 程序 ,在 主 程序 单元 中 调用 该 子 程序 ,对 一 
个 包含 有 10 个 整 型 元 素 的 数组 按 升序 排序 。 

分 析 : 排序 方法 已 在 第 8 章 中 做 过 详细 介绍 ,这 里 只 需要 将 前 文中 主 程序 形式 改写 
成 子 程序 形式 即 可 。 调试 程序 时 对 数组 赋值 是 - 件 比 较 枯 燥 乏 味 的 事 , 利 用 标准 函数 
RAN(ISEED) 可 减轻 工作 量 。RAN (ISEED) 也 数 的 功能 是 产生 (0,1) 区 间 内 的 一 个 随机 
数 , 其 中 整 型 形 参 ISEED 称 为 随机 数 的 “种 子 ”, 每 次 运行 时 给 定 的 “种 子 ” 不 同 , 产 生 的 随机 
数 就 会 不 同 , 每 调用 RAN(ISEED) 函 数 一 次 ,种 子 ISEED 会 自动 更 新 。 本 问题 需要 给 一 个 
长 度 为 10 的 一 维 整 型 数组 赋值 , 故 不 仅 需 要 调用 RAN 函数 10 次 ,而 且 还 需要 将 获得 的 随 
机 数 放大 后 取 整 。INT(RAN(ISEED) * 100) 会 产生 (0,100) 区 间 内 的 随机 整数 。 
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程序 编写 如 下 : 


PROGRAM EXAM9 10 
PARAMETER (N= 10) 
INTEGER A(N) 
READ x ,ISEED ! ISEED 为 整 型 类 型 
DOI=1,N 

A(I) = INT(RAN(ISEED) x* 100) 
ENDDO 
PRINT *, "排序 前 的 数组 : " 
PRINT "(<N> 14)", (A(I}),I= 1,N) 
CALL SORT(N, A) 
PRINT * "排序 后 的 数组 :" 
PRINT "(<N> 14)", (A(I),I=1,N) 
END 
SUBROUTINE SORT(N, A) 
INTEGER A(N),T 


DOI=1,N-1 
DOJ=1,N-I 
IF(A(J)> A(J + 1))THEN 
I 国 管理 员 : "Hi\wf\shiyan\shiyan\Debug\shiy.. 
T= A(J) 
A i 排序 前 的 数组 
及 (可 十 1) = 了 二 B84 v3 83 337 83 58 4 
. 排序 后 的 数组 
ENDIF 四 37 4 5g@ 55 ?9 83 83 84 
ENDDO 请 去 任 音 键 继续 . " 
ENDDO ee 
END 


图 9.16 例 9-10 运行 结 采 


程序 运行 结果 如 图 9. 16 所 示 。 

通过 上 面 的 例子 可 以 看 出 以 下 两 点 。 

(1) 子 例 行 子 程序 可 以 放 在 程序 中 的 任意 位 置 ,程序 单元 之 间 彼 此 独立 。 

(2) TO 一 般 地 , 当 要 求 子 程序 单元 
有 一 个 返回 值 时 ,选择 图 数 子 程序 比较 方便 , 当 了 于 程序 没有 返回 值 或 返回 值 个 数 不 止 一 个 
时 ,选择 子 例 行 子 程序 更 为 方便 。 


9.5 程序 单元 之 间 的 数据 传 示 : 虚实 结合 


到 目前 为 止 , 我 们 已 对 FORTRAN 的 函数 子 程序 和 子 例 行 子 程 序 的 结构 和 调用 有 了 初 
步 了 解 。 本 节 将 进一步 对 主 程序 与 子 程 序 参 数 的 虚实 结合 进行 讨论 。 在 后 面 的 讨论 中 , 除 
了 特别 声明 ,我们 用 “ 子 程 序 ” 来 统称 函数 子 程序 和 子 例 行 子 程序 。 

对 子 程 序 的 调用 ,一 开始 首先 是 在 虚 参 和 实 参 之 则 按 位 置 一 一 对 应 ,实现 虚实 结合 ,也 
就 是 说 ,第 1 个 实 参 与 第 1 个 虚 参 结合 ,第 2 个 实 参 与 第 2 个 虚 参 结合 ,……。 最 重要 的 一 
点 是 虚 参 和 实 参 的 数据 类 型 要 匹配 ,参数 类 型 如 果 不 匹 配 会 发 生 错 误 。 

FORTRAN 的 虚实 结合 是 采用 按 地 址 传递 的 方式 实现 的 。 意 思 是 指 ,在 调用 子 程 序 
时 , 实 参 将 它 所 对 应 的 内 存单 元 地 址 传递 给 虚 参 ,这 时 , 虚 参 和 实 参 会 使 用 相同 的 内 存单 元 
来 存储 数据 。 
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例如 ,当下 面 的 CALL 语句 执行 时 : 
主 调 程序 子 程序 
权 SUBROUTINE SUB( IM) 

CALL SUB(N) 
实 参 变量 N 的 地 址 成 为 虚 参 变量 IM 的 地 址 。 即 在 虚实 结合 其 程序 N 
间 ,IM 和 NN 实际 上 共 圣 同一 个 存储 单元 ,如 图 9.17。 这 种 通过 传 
送 地 址 的 方式 实现 的 虚实 结合 就 称 为 按 地 址 结合 。 因 此 在 调用 调用 子 程序 时 
SUB 子 程 序 的 过 程 中 , 虚 参 IM 值 的 改变 也 就 相当 于 改变 了 实 参 


N 的 值 。 这 就 是 为 什么 对 应 虚 、 实 参 的 类 型 必须 相同 的 原因 。 当 子 程序 IM 
退出 子 程序 、 返 回 主 程序 后 ,这 种 实 参 与 虚 参 间 的 结合 日 动 解除 ， 图 9.17 虚实 结合 时 虚 
IM 又 重新 变 成 无 定义 状态 ,而 N 的 值 就 是 在 子 程 序 执行 中 最 后 参与 实 参 共享 

-次 对 IM 所 赋 的 值 , 从 表面 上 看 就 好 像 把 IM 的 值 传送 给 了 主 程 一 个 存储 单元 
扩 中 鸭 NN 


下 面具 体 讨 论 参数 虚实 结合 的 方法 。 


9.5.1 简单 要 量 作为 虚 参 时 的 虚实 结合 


虚 参 是 变量 名 时 ,对 应 的 实 参 可 以 是 同一 类 型 的 变量 .数组 元 素 、 表 达 式 或 常数 。 

1. 虚 参 为 简单 变量 ,对 应 的 实 参 为 数组 元 素 和 变量 

虚实 结合 时 , 实 参 将 自身 内 存 地 址 传送 给 子 程 序 中 相对 应 的 虚 参 ,使 之 成 为 相对 应 虚 参 
的 地 址 。 对 应 的 虚 参 和 实 参 共用 同一 个 存储 单元 , 虚 参 的 值 发 生 改 变 时 ,对 应 实 参 的 值 也 随 
改过 

例如 : 


INTEGER A, C(3) 

DATA C/3 * 0/ 

A= 100 

CALL SUB(A, C(2)) 

PRINT x*, 'A=', A, 'C(2)= ',C(2) 
END 


SUBROUTINE SUB(X, A) 
INTEGER 站 下 
A=2*% 

X=2x 

END 


程序 运行 结果 如 图 9. 18 所 示 ,程序 运行 过 程 如 图 9. 19 所 示 。 


图 9.18 示例 运行 结果 


194 = oe 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


主 程序 a cel) c(2) c(3) 
主 程序 a cel) c(2) c(3) 
子 程序 x a 
程序 c(1) c(2) ec(3) 


EE 


了 于 程序 Xx a 


主 程序 a c(1) ce(2) c(3) 


调用 子 程序 后 | 400 四 四 四 


图 9.19 数组 元 素 和 变量 作为 实 参 时 的 程序 运行 过 程 


2. 虚 参 是 简单 变量 ,对 应 的 实 参 是 表达 式 或 常量 

当 实 参 是 表达 式 或 常量 时 , 先 对 表达 式 求 值 , 然 后 把 求 得 的 值 或 常量 值 放 在 一 临时 存储 
单元 中 ,进行 虚实 结合 。 这 种 情况 下 ,运行 子 程序 的 过 程 中 ,对 应 虚 参 改变 时 ,此 临时 地 址 中 
的 内 容 也 作 相应 改变 ,这 将 与 常量 或 表达 式 值 产生 冲突 。 因 此 FORTRAN 语言 规定 : 子 程 
序 中 与 表达 式 ( 或 常量 ) 实 参 对 应 的 虚 参 只 能 被 引用 ,不 能 被 赋值 。 否 则 会 出 现 语法 错误 。 

3， 虐 参 和 实 参 是 字符 型 变量 

虚 参 的 长 度 定义 应 当 遵循 以 下 两 条 规则 之 一 。 

(1) 虚 参 字符 型 变量 的 长 度 定义 必须 小 于 等 于 对 应 实 参 变量 的 长 度 。 

(2) 虚 参 字符 型 变量 的 长 度 可 用 ( * ) 来 定义 ,表示 长 度 不 定 。 当 调用 子 程序 时 ,具有 不 
定 长 度 的 虚 参 变量 自动 定义 成 为 与 对 应 实 参 具有 同样 的 长 度 。 例 如 : 


PROGRAM MAIN SUBROUTINE SUB(CH) 
CHARACTER STR1 * 8, STR2 * 40 CHARACTER x ( * )CH 


CALL SUB( STR1) 
CALL SUB( STR2) END 


END 


在 子 程序 SUB 中 虚 参 CH 为 不 定 长 字符 串 变 量 ,当主 程序 第 一 次 调用 SUB 子 程序 时 ， 
由 于 实 参 STR1 的 长 度 为 8, 因 此 虚 参 CH 的 长 度 也 为 8。 当主 程序 第 二 次 调用 SUB 子 程 
序 时 ,由 于 实 参 STR2 的 长 度 为 40, 因 此 虚 参 CH 的 长 度 也 为 40。 由 此 可 以 看 到 ,将 字符 型 
虚 参 变量 定义 成 不 定 长 ,会 使 子 程序 更 具 通 用 性 。 
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9.5.2 数组 作为 虚 参 时 的 虚实 结合 


虚 参 是 数组 名 时 , 则 对 应 的 实 参 必须 是 数组 名 或 数组 元 素 。 以 下 将 区 分 各 种 情 次 加 以 
说 明 。 

1. 虚 参 和 实 参 数组 是 数值 类 型 或 逻辑 类 型 

在 调用 子 程 订 时 ,两 个 数组 按 地 址 结合 , 即 把 实 参 数组 的 第 1 个 元 系 的 地 址 传送 给 子 程 
序 对 应 虚 参 数组 ,作为 其 第 1 个 元 系 的 地 址 ,从 而 使 它们 共用 一 个 存储 单元 ,并 且 虚 参数 组 
的 其 余 元 系 将 与 该 实 参 数组 元 素 后 的 其 他 元 素 按 排列 顺序 一 一 对 应 结合 

例如 ,有 下 面 的 调用 和 被 调用 程序 语句: 

INTEGER A (2: 10) SUBROUTINE SUB(B) 

INTEGER B( - 5: 5) 


CALL SUB(A) 

图 9. 20 给 出 了 一 维 实 参 数组 和 虚 参 数组 的 虚实 结合 示意 图 。 
AQ) AG)  A4) AG _ A(6) _ AQ) AS _ A9 _ A(10) 
BC5) BC4) BC3) BC) BC) BO) BO BC2) BG) 


图 9. 20 ”一 维 实 参数 组 和 虚 参 数组 的 虚实 结合 示意 图 


上 面 的 子 例 行 子 程序 中 对 B 数组 的 定义 还 可 以 改写 如 下 : 
INTEGER A(2:10) SUBROUTINE SUB(B) 
i INTEGER B(—5:*x) 
CALL SUB(A) 
此 时 A 和 B 虚实 结合 的 情况 与 图 9. 20 所 示 完 全 相同 。 

在 子 程序 中 可 以 用 * 号 作为 虚 参 数组 的 数组 说 明 符 中 最 后 一 维 的 维 下 标 上 界 。 它 的 
作用 是 可 以 使 所 定义 的 虚 参 数组 的 大 小 和 与 之 对 应 的 实 参 数组 的 大 小 完全 相同 ,也 就 是 
说 , 当 子 程序 被 调用 时 , 虚 参 数组 的 大 小 是 假定 的 ,假定 它 与 所 对 应 的 实 参 数组 大 小 相 
同 。 这 种 高 有 * 号 的 数组 说 明 符 称 为 假定 大 小 的 数组 说 明 符 ,只 能 在 子 程 序 中 对 虚 参 数 
i 

当 与 虚 参 数组 对 应 的 实 参 是 数组 元 系 ,在 实现 虚实 结合 时 ,该 数组 元 素 把 其 地 址 传 
送 给 子 程序 相应 位 置 的 虚 参 数组 ， 并 作为 该 虚 参 数组 中 第 一 个 数组 元 素 的 地 址 ,从 而 实 
现 两 个 数组 元 素 之 间 的 虚实 结合 ,然后 实 参 数组 的 下 一 个 数组 元 素 i 
个 数组 元 素 结合 ,其余 元 素 以 此 类 推 。 图 9. 21 给 出 了 下 面 程序 语句 所 实现 的 虚实 
情况 。 
REAL A(10) SUBROUTINE SUB(B) 


DIMENSION B(0:5) 
CALL SUB(A (4)) 


196 本 
FORTRAN 语言 程序 设计 一 FORTRANG9S 


A(l) AGQ) AG) Ad AS AI AT7D) A(8) A() Al0 


B(U) B(1) B(2) B(3) B(4) BO») 


图 9.21 实 参 为 数组 元 素 时 虚实 结合 示意 图 


图 9. 22 给 出 了 维 数 不 同 情况 下 虚 参 数组 和 实 参 数组 结合 的 示意 图 。 


PROGRAM MAIN 
DIMENSION A(2,4) 


CALL SUB(A) 

END 

SUBROUTINE SUB(B) 
DIMENSION B(6) 
END 


A(1,1) AGQ2,1) A(1,2) A(2,2) A(1,3) A(2,3) A(1,4) A(2,4) 


| 


B(I) BQ) BG) B(4) BG) BO) 
图 9. 22 ” 维 数 不 同时 虚 参数 组 和 实 参 数组 的 虚实 结合 示意 图 
图 9. 23 给 出 了 实 、 虚 参数 组 维 数 相 同 但 大 小 不 同时 的 虚实 结合 情况 。 


PROGRAM MAIN 
DIMENSION A(3,3) 


CALL SUB(A) 


END 


SUBROUTINE SUB(B) 
DIMENSION B(2,2) 


恒 量 恒 


AU DACD AG,1) A(l2) A(2,2) A(3,2) A(l,3) A(2,3) A(3,3) 


| | 


B(1,1) B(2,1) B(1,2) B(2,2) 
9.23 实 、 虚 参数 组 维 数 相同 但 大 小 不 同时 的 虚实 结合 示意 图 
注意 : 在 子 程序 中 说 明 虚 参数 组 时 , 它 的 元 素 个 数 必 须 小 于 等 于 对 应 实 参 数组 中 元 素 


的 个 数 , 即 虚 参 数组 的 最 后 一 个 元 素 必 须 落 在 实 参 数组 的 范围 中 ,否则 会 出 现 错误 。 如 
图 9. 24 所 示 , 虚 参数 组 的 元 素 已 超出 对 应 实 参数 组 的 范围 ,将 引起 运行 错误 。 
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PROGRAM MAIN 
DIMENSION A({6) 


CALL SUB(A(3)) 
END 


SUBROUTINE SUB(B) 
DIMENSION B(6) 


END 


A(l) A(2) A(3) A(4) A(5) A(6) 
B(l)  B(2) BO)  B4)  B(3) BO) 


图 9. 24 实 参 为 数组 元 系 时 的 虚实 结合 示意 图 


里 然 虚 实 结 合 的 数组 允许 维 数 不 同 、 下 标的 上 下 界 不 同 , 但 在 这 种 情况 下 由 于 对 应 元 素 
使 用 的 下 标 完 全 不 同 , 使 得 程序 很 难 读 懂 , 也 很 容易 造成 一 些 隐蔽 的 错误 ,因此 应 该 尽量 避 
免 出 现 这 种 情况 。 

2. 虚 参 和 实 参 是 字符 型 数组 

这 时 , 虚 参 和 实 参 数组 不 是 按 数组 元 素 的 顺序 一 一 对 应 结合 ,而 是 按 字符 位 置 一 一 对 应 
结合 。 虚 参数 组 中 允许 的 字符 总 数 必须 小 于 等 于 实 参 数组 中 允许 的 字符 总 数 。 在 此 条 件 
下 , 实 、 虚 数组 的 维 数 可 以 不 同 , 下 标的 上 .下界 可 以 不 同 , 数 组 元 素 的 字符 长 度 也 可 以 不 同 。 
图 9. 25 给 出 了 虚 参 和 实 参 为 字符 型 数组 时 虚实 结合 的 示意 图 。 


PROGRAM MAIN 
CHARACTER x 4 B(6) 


CALL SUB(B) 


END 


SUBROUTINE SUB(C) 
CHARACTER * 5 C(4) 


END 
B(1) B(2) B(3) B(4) B(> ) B(0) 


和 


a > Y =< 
C(1) C(2) C(3) C4) 


图 9.25 ” 实 参 与 虚 参 为 字符 数组 时 的 虚实 结合 示意 图 


5 FORTRAN 语言 程序 设计 一 一 FORTRAN95 

通常 ,除非 特殊 需要 , 虚 参 字符 数组 元 素 的 长 度 应 该 与 对 应 实 参 相 同 ,这 样 的 程序 不 仅 
可 该 性 好 ,而 且 易 于 调试 检查 。 

与 虚 参 字符 数组 对 应 的 实 参 也 可 以 是 一 个 字符 型 数组 元 素 , 虚 参 字符 数组 的 第 一 个 字 
符 与 该 数组 元 素 的 第 一 个 字符 结合 ,以 此 类 推 , 只 是 虚 参 字符 数组 中 最 后 一 个 字符 必须 落 在 
对 应 实 参数 组 的 范围 内 。 

3。 虚 参 是 可 调 数组 

在 子 程序 中 定义 数组 时 ,人 允许 用 变量 来 定义 各 维 下 标的 上 . 下界, 这 种 在 子 程序 中 用 变 
量 来 定义 各 维 下 标的 上 下 界 的 数组 称 为 可 调 数组 。 在 子 程序 中 ,人 允许 虚 参 是 可 调 数 组 。 可 
调 数组 的 使 用 大 大 提高 了 子 程序 的 通用 性 和 灵活 性 。 读 者 在 了 解数 组 虚实 结合 情况 的 基础 
上 ,应 该 充分 利用 可 调 数 组 这 一 强 有 力 的 工具 来 进行 程序 设计 。 

【 例 9-11】 设计 一 个 子 程序 , 求 任 意 乞 阵 的 转 置 窍 阵 。 

分 析 : 设计 一 个 子 例 行 子 程序 TRAN(A,B,M,N) ,将 和 矩阵 A 转 置 后 放 人 和 宅 阵 了 B, 其 中 
M N 是 矩阵 A 的 行 数 和 列 数 。 

程序 编写 如 下 : 

PROGRAM EXAM9 11 

PARAMETER(M= 3,N= 4) 

INTEGER A(M,N),B(N,M) 

PRINT * ," 输 入 一 个 3x*4 的 矩阵 : " 

DOI=1,M 

READ x* ,(A(I,J),J=1,N) 

ENDDO 

CALL TRAN(A,B,M,N) 

PRINT * ，" 转 置 后 的 矩阵 " 

DOI=1,N 

PRINT * ,(B(I,J),J=1,M) 

ENDDO 

END 


i 
加 管理 色 : Lea x 


SUBROUTINE TRAN(A, B, M,N) 
INTEGER A(M, N),B(N,M) 


DOI=1,M 
DOJ=1,N ] 
am 4 

B(J, 1) = A(I,J) 请 按 尾 音 键 继续 . 

ENDDO 有 
| 4 | 

ENDDO 
END 


图 9.26 例 9-11 运行 结果 

程序 运行 结果 如 图 9. 26 所 示 。 

子 程序 中 虚 参 数组 A 和 B 是 由 变量 M.N 定义 的 ,所 以 A、B 为 可 调 数 组 。 例 9-10 中 
的 虚 参 数组 也 是 可 调 数 组 。 

使 用 可 调 数组 应 遵循 以 下 原则 。 

(1) 可 调 数组 名 必须 是 虚 参 。 

(2) 可 调 数组 中 每 一 维 的 上 .下 界 可 以 是 整 型 虚 参 变量 ,其 值 通过 对 应 的 实 参 传递 过 
来 ; 也 可 以 是 公用 区 中 的 变量 (公用 区 变量 将 在 后 面 讲 到 )。 为 了 使 程序 清晰 易 读 ,建议 采 
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用 虚 参 变量 来 说 明 可 调 数组 的 上 、 下 界 而 不 用 公用 区 变量 。 
(3) 只 能 在 子 程序 中 使 用 可 调 数组 ,而 且 对 于 那些 只 是 在 子 程序 中 局 部 使 用 的 (而 非 通 
过 虚实 结合 传递 的 ) 数 组 也 不 允许 是 可 调 的 。 


9.5.3 子 程序 名 作为 虚 参 时 的 虚实 结合 


在 FORTRAN 中 ,除了 可 以 传递 变量 数组 和 字符 外 ,还 可 以 将 函数 名 和 子 例 行 子 程 序 
名 传递 给 虚 参 。FORTRAN 编译 程序 完全 根据 某 个 虚 参 名 字 在 子 程序 中 出 现时 的 上 下 文 
关系 来 确定 它 是 图 数 名 还 是 子 例 行 子 程序 名 。 图 数 名 在 必要 时 应 该 进行 类 型 说 明 。 

【 例 9-12】〗 分 别 调用 卫 数 FUNC( 自 定义 函数 子 程序 ) 和 SIN( 标 准 函 数 ) 求 解聘 数值 。 

程序 编写 如 下 : 

PROGRAM EXAM9 12 

EXTERNAL FUNC 

INTRINSIC SIN 

CALL EXF'( FUNC) 

CALL EXF'( SIN) 

END 


SUBROUTINE EXF(F) 
PRINT x* ，F(1.0) 
END 


FUNCTION FUNC(X) 

FUNC = Xx 3+2 关 RK+4 

END 

程序 运行 结果 如 图 9. 27 所 示 。 执 行程 序 后 会 得 到 FEUNC (1.0) 和 SIN(1.0) 的 值 。 

主 程序 的 第 2 行使 用 了 EXTERNAL 语句 :这 征用 fgg nn nl 
来 说 明 FUNC 是 一 个 月 定义 的 外 部 函数 子 程序 名 ,而 |-666866 
不 是 一 个 变量 。 第 3 行 的 INTRINSIC 是 用 来 说 明 SIN 
是 FORTRAN 的 标准 函数 ,而 不 是 变量 。 程 序 中 的 
EXTERNAL 和 INTRINSIC 都 不 能 省 略 , 因 为 在 这 里 9.27 例 9-12 运行 结果 
要 把 曙 数 名 称 当 作 参 数 进行 传递 。 如 果 只 是 调用 因数 
来 进行 计算 ,而 不 需要 进行 虚实 结合 的 话 , 说 明 FUNC 的 EXTERNAL 语句 可 以 省 略 ; 而 
在 符合 IN 规则 时 ,说明 语 句 可 以 省 略 ,说 明 SIN 是 内 部 函数 的 这 一 行 则 可 以 完全 省 略 。 

主 程序 第 4.5 行 执 行 了 两 次 调用 子 程序 EXF ,分 别 把 自 定 义 函 数 子 程序 FUNC 和 标准 
图 数 SIN 进行 传递 。 

子 程序 EXF 中 会 执行 传递 过 来 的 函数 。 第 一 次 调用 传递 过 来 的 是 FUNC 函数 , 子 程 
序 中 虚 参 下 和 FUNC 函数 名 结合 ,在 子 程 序 中 执行 语句 “PRINT x* , F(1.0)”, 就 是 执行 
“PRINT * , FUNC(1.0)”, 因 此 输出 的 是 FUNC(1.0) 的 值 。 

第 二 次 调用 传递 的 是 SIN 因数 ,所 以 输出 的 是 SIN(1.0) 的 值 。 

实 参 是 子 程序 名 时 要 注意 以 下 几 点 。 

(1) EXTERNAL 堵 句 和 INTRINSIC 语句 都 是 说 明 语 句 , 它 们 用 来 说 明 本 程序 单元 中 
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哪些 名 字 是 用 户 自 定义 子 程序 名 或 标准 函数 名 。 在 主 调 程 序 单元 的 调用 中 , 实 参 是 子 程序 
名 时 ,必须 对 实 参 进行 说 明 。 在 INTRINSIC 语句 中 说 明 的 名 字 必 须 是 FORTRAN 中 合法 
的 标准 函数 名 ,在 EXTERNAL 语句 中 说 明 的 名 字 必 须 代 表 本 程序 中 确实 存在 的 子 程 
序 名 。 

(2) 虚 参 是 子 程序 名 ,不 需要 对 它们 用 EXTERNAL 语句 和 INTRINSIC 语句 说 明 ，。 

(3) 在 子 程序 虚 参 中 出 现 的 函数 名 或 子 例 行 子 程序 名 只 是 起 形式 上 的 作用 ,实际 不 存 
在 ,必须 通过 实 参 将 子 程序 名 传递 过 来 。 


9.5.4 星 号 (x ) 作 为 虚 参 


当 虚 参 表 中 出 现 一 个 * 时 ,对 应 的 实 参 应 该 是 一 个 人 鞠 有 * 的 语句 标号 。 
例如 ， 


PROGRAM MAIN SUBROUTINE EXAM(A, x ,* ) 
本 IF( .… )THEN 
120 X= X11+ 2X2 i 
RETURN 1 


CALL EXAM(X, < 120, x 140) ELSE IF( … )THEN 
140 ---. RETURN2 
END END IF 
END 


在 CALL EXAM(X,x*120,x*140) 语 句 中 ,与 虚 参 第 一 个 * 对 应 的 语句 标号 为 120, 与 
虚 参 第 二 个 * 对 应 的 语句 标号 为 140。 在 执行 EXAM 子 例 行 子 程序 时 ,如 果 遇 到 END 请 
句 , 执 行 的 流程 将 按 正 常情 况 返 回 到 调用 语句 的 后 继 语 句 去 继续 执行 。 当 过 到 RETURN1 
语句 时 ,执行 的 流程 返回 主 程序 并 跳 到 与 第 一 个 * 对 应 的 语句 标号 120 去 继续 执行 。 当 遇 
到 RETURN2 语句 时 ,执行 的 流程 返回 主 程序 并 跳 到 与 第 二 个 * 对 应 的 语句 标号 140 去 继 
续 执 行 。 

用 * 作为 虚 参 将 使 子 程 序 有 一 个 入 口 而 有 多 个 出 口 ,这 种 返回 方式 不 符合 结构 化 程序 
设计 的 要 求 , 因 此 除非 特殊 需要 ,一 般 不 主张 采用 。 


9.5.5 子 程序 中 变量 的 生存 周期 


子 程序 中 用 到 的 所 有 变量 在 被 调用 前 通常 痢 没 有 确定 的 存储 单元 ,我 们 称 这 些 变 量 在 
于 程序 没有 征调 用 时 是 无 定义 的 。 每 当 子 程序 被 调用 时 ,会 临时 给 子 程 序 的 变量 分 配 存 储 
单元 ,而 在 退出 于 程序 时 这 些 存储 单元 会 被 释放 并 重新 分 配 田 作 他 用 ,因此 与 之 对 应 的 变量 
的 值 都 不 被 保留 。 在 下 一 次 进入 子 程序 时 ,给 这 些 变 量 分 配 的 可 能 会 是 为 外 的 存储 单元 (与 
上 一 次 调用 时 分 配 的 存储 单元 可 能 不 同 ), 上 次 调用 时 的 值 已 经 不 复 存在 。 这 说 明 在 子 程 序 
中 的 变量 的 生存 时 间 只 有 在 这 个 子 程序 被 调用 执行 的 这 一 段 时 间 。 

在 子 程序 中 可 以 通过 SAVE 语句 来 改变 变量 的 生存 时 间 , 延 长 变量 的 生存 周期 ,保留 
变量 中 所 保存 的 数据 。 这 些 变 量 可 以 永久 记 住 上 一 次 子 程 序 被 调用 时 所 设置 的 数值 , 耳 到 
整个 程序 执行 完成 。 
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【 例 9-13】 改变 变量 的 存储 周期 。 


SUBROUTINE SUB( ) 
INTEGER.. A=1 


SAVE A 

PRINT 关 ,A 

A=A+1 

FND 9.28 例 9-13 运行 结果 


程序 运行 结果 如 图 9. 28 所 示 。 

在 子 程序 中 用 SAVE 请 名 改变 了 变量 A 的 生存 周期 ,将 A 的 生存 周期 延长 到 整个 程 
序 的 执行 过 程 。 每 次 调用 SUB 时 ,A 都 会 记得 上 一 次 被 调用 时 所 留 下 来 的 值 。 

这 里 要 注意 ,变量 A 的 初 值 只 设置 一 次 ,并 不 是 每 次 调用 子 程序 SUB 时 都 会 重新 
设置 。 

在 FORTRAN 中 ,可 以 将 SAVE 和 类 型 说 明 语 句 写 在 一 行 , 即 可 以 写成 : 

INTEGER, SAVE : : A=1 

注意 . FORTRAN 标准 并 没有 强制 规定 ,没有 使 用 SAVE 的 变量 就 不 能 永远 记 住 它 的 
数值 。 它 只 是 规定 加 SAVE 的 变量 生存 周期 是 整个 程序 的 执行 周期 。 事 实 上 Visual 


Fortran 编译 器 不 管 说 明 中 有 没有 加 SAVE, 都 会 让 变量 永远 记 住 数值 。 不 过 为 确保 程序 的 
正确 性 ,增加 代码 的 可 移植 性 ,在 需要 的 地 方 还 是 要 加 上 SAVE 语句 。 


9.6 特殊 的 子 程序 类 型 


9.6.1 递归 子 程序 

想必 大 家 都 听 过 这 样 一 个 故事 ,从 前 有 座 山 ,山上 有 座 庙 , 庙 里 有 个 老 和 尚 , 老 和 尚 给 小 
和 尚 讲 故 事 ,故事 的 内 容 是 从 前 有 座 山 ,山上 有 座 庙 rp mad 老 和 尚 给 小 和 尚 讲 故 
事 ,故事 的 内 容 是 从 前 有 座 山 ,山上 有 座 庙 ,…… 。 这 个 故事 没完 没 了 地 重复 着 ,直到 讲 故 事 
的 人 烦 了 、 累 了 才 会 停 下 来 。 这 个 故事 就 是 : ee 的 例子 ,故事 中 直接 调用 了 故事 
本 有 身 , 从 而 使 得 这 个 故事 永 无 止境 地 扩展 下 去 。 

实际 上 ,递归 是 一 种 很 有 用 的 数学 思想 ,可 以 使 一 些 无 穷 概 念 的 处 理 更 为 简单 ,如 阶乘 
“nl 二 nx* (n 一 1)1”( 在 定义 n! 时 调用 了 Cn 一 1)1) 、 裴 波 纳 契 数列 “fn) =fCn 一 1) 十 {Cn 一 2)”( 在 
定义 数列 第 n 项 时 调用 了 第 n 一 1 项 和 第 n 一 2 项 ) 等 。 

在 程序 设计 中 ,所谓 递归 ,就 是 指 子 程序 在 运行 过 程 中 直接 或 间接 调用 自身 而 产生 的 重 
人 现象 。 这 种 “上 自己 调用 上 自己 ”一 年 要 存在 一 个 停止 条 件 ( 即 递归 终止 条 件 ) ,否则 就 会 因 陷 
信永 不 停息 的 死 循 环 而 死机 。 比 如 在 老 和 尚 讲 故 事 中 ,递归 的 终止 条 件 就 是 讲 故 事 的 人 烦 
了 、 累 了 ”; 在 阶乘 的 递归 定义 中 ,递归 的 终止 条 件 就 是 “n= 二 0 或 n= 二 1”; 在 斐 波 纳 契 数列 的 
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递归 定义 中 ,递归 的 终止 条 件 就 是 “n==1 或 n= 二 2”。 它 们 之 所 以 成 为 递归 终止 的 条 件 ,是 因 
为 在 这 些 条 件 处 所 遇 问 题 有 确定 的 解 。 

一 般 来 说 ,能 够 用 递归 解决 的 问题 应 该 满足 以 下 三 个 条 件 。 

(1) 需要 解决 的 问题 可 以 化 为 一 个 或 多 个 子 问题 来 求解 ,而 这 些 子 问 题 的 求解 方法 与 
原来 问题 的 求解 方法 完全 相同 ,只 是 在 数量 规模 上 不 同 。 

(2) 递归 调用 的 次 数 必 须 是 有 限 的 。 

(3) 必须 有 结束 递归 的 条 件 来 终止 递归 。 

采用 编程 方式 解决 递归 问题 就 一 定 要 找 出 所 遇 问 题 的 递归 公式 和 递归 终止 条 件 。 例 
如 ,在 阶乘 运算 公式 

] 天 一 0 


nl 一 


nx(n—1)! n>~]1 
中 ,“n! 一 nx (n 一 1)1” 给 出 了 阶乘 问题 的 递归 公式 ,“n 二 1 或 n 一 0” 给 出 了 递 推 运算 停止 的 
递归 运算 实际 上 包括 两 个 过 程 : 递 推 过 程 和 回归 过 程 。 

以 5 的 阶乘 为 例 , 要 计算 5! ,就 得 知道 41, 要 计算 4! ,就 得 知道 3!1,…… ,要 计算 21, 就 
得 知道 1! ,这 个 过 程 就 是 递归 问题 中 的 递 推 过 程 。 当 递 推 到 1! 时 , 遇 到 递 推 终 止 条 件 “n 王 1”， 
因为 1! 王 1 ,运算 结果 已 知 ,无 须 再 往 下 推 。 此 后 进入 回归 过 程 ,从 1! 回 归 到 21(2! 二 2 * 
1! 王 2), 从 21! 回 归 到 3!(3!=3*2! 王 6)，…… ,直至 回归 到 当前 求解 问题 的 位 置 51(5! 一 5* 
4! 一 5x* 24 一 120) 。 

处 理 递 归 问 题 的 子 程序 称 为 递归 了 于 程序 。 从 FORTRAN90 开始 ,FORTRAN 程序 设 
计 语 言 文 持 递归 子 程序 功能 。FEORTRAN 的 递归 子 程序 有 两 种 , 即 递 归 国 数 子 程 序 和 递归 
子 例 行 子 程序 。 

递归 函数 的 一 般 形式 如 下 : 

加 上 RECURSIVE 的 函数 才能 进行 递归 调用 

RECURSIVE FUNCTION 函数 名 ([ 形 参 表 ]) RESULT( 函数 结果 名 ) 


.. ‘ 
调用 该 图 数 本 喘 使 用 另外 一 个 变量 设置 函数 的 返回 值 


END [FUNCTION [ 田 数 名 ] ] 
递归 了 于 例 行 子 程序 的 一 般 形 式 如 下 : 
有 RECURSIVE 的 子 例 行 子 程 序 才能 进行 递归 调用 
RECURSIVE SUBROUTINE 子 程序 名 ([ 形 参 表 ]) 
调用 该 子 程序 本 身 
END [ SUBROUTINE [了 于 程序 名 ] ] 


前 面 曾 用 循环 结构 编写 过 阶乘 运算 的 程序 ,下 面 分 别 采 用 递归 男 数 子 程序 和 递归 了 于 例 
行 子 程序 进行 编 与 。 
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【 例 9-14】 利用 递归 函数 子 程 序 计算 N 1。 
分 析 : N1 可 定义 为 递归 公式 


1 N=0,1 
N! = 
[INx(NO—1)! N11 


定义 一 个 求 阶乘 的 函数 FACTORIAL ,调用 FACTORIAL 函数 来 求 N!。 当 N 二 1 时， 
根据 公式 只 要 再 调用 函数 FACTORIAL, 求 出 (N 一 1)1! 就 可 以 得 到 计算 结果 ,这 样 就 会 产生 
递归 调用 过 程 ,因此 需要 定义 递归 函数 子 程序 。 

参考 程序 如 下 : 

PROGRAM EXAM9 14 

READ x* ,N 

PRINT x* , FACTORIAL(N) 

END 


RECURSIVE FUNCTION FACTORIAL( N) RESULTCFAC) 
INTEGER N 
IF(N<0) THEN 
FAC= 一 1 !N 值 不 合理 
ELSE IF(N==1.0R.N==0) THEN 
FAC = 1 
ELSE 
FAC = Nx FACTORIAL(N— 1) ! 调 用 正在 定义 的 子 程 序 
END IF 
END 
程序 运行 结果 如 图 9. 29 所 示 。 
通过 上 面 的 程序 可 以 看 到 , 主 程序 部 分 没有 什么 特别 功 
能 ,只 是 用 来 调用 FACTORIAL 函数 。 函 数 FACTORIAL 
的 开头 用 关键 字 RECURSIVE 来 说 明 该 子 程序 可 以 递归 
调用 。 = 
程序 中 用 FAG 来 存放 困 数 的 中 加 结果 ， 它 的 类 型 与 到 90.29 例 9-14 运 行 结果 
数 名 类 型 相同 。 在 退出 次 数 子 程序 ,返回 到 调用 程序 单元 之 
前 ,FORTRAN 会 自动 将 该 变量 的 值 赋值 给 函数 名 ,即将 FAC 的 值 赋值 给 限 数 名 
FACTORIAL。 对 于 每 一 个 用 户 自 定 义 函 数 ,FORTRAN 都 允许 用 户 通过 RESULT 来 改 
用 另 一 个 变量 设置 返回 值 , 当然 这 通常 没有 意义 ,一 般 也 不 这 样 做 。 但 对 于 标准 
FORTRAN 的 递归 函数 ,一定 要 用 RESULT 来 设置 另 一 个 变量 存放 计算 结果 ,不 过 有 些 编 
译 器 可 以 执行 没有 RESULT 的 递归 函数 ，。 
使 用 递归 商 数 子 程序 要 有 很 明晰 的 人 逻辑 概念 。 通 过 求 NI! 的 公式 可 以 看 到 以 下 几 点 。 
当 N 二 1 时 ,NI!=Nx*(N 一 1)1。 程 序 调 用 图 数 子 程序 FACTORIAL 来 计算 N1 时 ， 
是 通过 调用 FACTORIAL 郴 数 (自身 ) 求 C(N 一 1)1! 后 ,利用 公式 N* (N 一 1)1! 来 求 出 NI 的 。 
递归 于 程序 第 8 行 执 行 的 就 是 这 种 操作 。 
@ 递归 调用 时 要 有 一 个 明确 的 “终点 ”, 用 来 停止 递归 ,否则 会 造成 子 程序 不 停 地 调用 
目 己 来 执行 ,导致 程序 死机 。 程 序 中 在 递归 调用 开始 前 存在 以 下 假设 判断 : 
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。 厂 N 二 0 , 则 N 值 不 合理 ,不 进行 计算 ; 
。 夺 NN 二 1 或 N 一 0, 则 N!==1, 这 是 已 知 的 阶乘 结果 ,无 须 计 算 , 这 个 条 件 就 是 递归 的 
结束 条 件 。 
在 递归 函数 中 ,每 调用 一 次 FACTORIAL(N 一 1) 会 将 N 的 值 在 原 有 变化 基础 上 再 减 
小 1, 当 N 夺 1 时 ,递归 不 青 执行 。 
图 9. 30 给 出 了 递归 计算 阶乘 的 程序 执行 流程 。 每 一 次 调用 图 数 子 程序 FACTORIAL 
时 , 它 的 变量 N、FAC 都 是 独立 的 。 图 中 用 下 表示 FACTORIAL 函数 子 程序 。 


Factorial | 油 数 Factorial | 油 数 Factorial | 油 数 Factorial | 油 数 
n=3 n 一 4 n=3 n=2 


2 3 4 \ 
f(5)=f(5 -1)*5 风 f(4)=f(4 -1)*4 一 f(3)=f(3-1)*3 列 {2)={f(2 -1)*2 
f(5)=120 frdy24 fr3)6 f(2)=2 
rn 


E 程 序 单元 


10 


Factorial | 滑 数 [ 
n=] 


图 9. 30 递归 计算 阶乘 的 程序 执行 流程 


函数 子 程序 FACTORIAL 共 被 调用 5 次 ,其 中 FACTORIAL(5) 是 在 主 程序 单元 被 调 
用 ,其 余 4 次 是 在 FACTORIAL 函数 中 被 调用 , 即 递 归 调 用 4 次 。 

【 例 9-15】 利用 递归 子 例 行 子 程序 计算 n!。 

程序 编写 如 下 : 


PROGRAM EXRM9 15 
READ x*,N 

CALL FACSUB(N, F) 
PRINT x*,F 

END 


RECURSIVE SUBROUTINE FACSUB(N, FAC) 
INTEGER N 
IF(N<0) THEN 
FAC= —1 1N 值 不 合理 
ELSE IF(N== 1.0OR.N== 0) THEN 
FAC = 1 
ELSE 
CALL FACSUB(N— 1, FAC) 
FAC=N* FAC 


END IF 

END 

程序 运行 结果 如 图 9. 31 所 示 ,与 递归 函数 运行 结果 完 | 
全 相同 。 


9.31 例 9-15 运行 结果 
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程序 执行 过 程 和 例 9-14 一 样 , 只 是 用 CALL 语句 调用 递归 子 例 行 子 程序 。 在 子 例 行 子 
程序 中 不 需要 RESULT, 而 是 直接 使 用 参数 变量 来 保存 中 间 计 算 结 果 , 通 过 虚实 结合 将 计 
算 结 果 返 回 到 主 程序 单元 。 

递归 调用 的 思想 在 于 简化 复杂 的 问题 ,精简 程序 代码 。 用 递归 的 方法 计算 阶乘 并 不 会 
比 循环 来 得 好 ,这 里 只 是 示范 递归 的 使 用 方法 和 思路 。 不 过 ,有 些 问题 的 处 理 是 必须 要 通过 
递归 来 完成 的 。 

【 例 9-16】 利用 递归 子 例 行 子 程序 或 递归 函数 求解 任意 两 个 正 整 数 的 最 大 公约 数 。 

分 析 : 最 大 公约 数 有 多 种 算法 ,比如 查找 约 数 法 ,加 转 相 除法 、 求 差 判 定 法 ,分解 因 数 法 

查找 约 数 法 就 是 先 分 别 找 出 每 个 数 的 所 有 约 数 ,再 从 两 个 数 的 约 数 中 找 出 公有 的 约 数 ， 
其 中 最 大 的 一 个 就 是 最 大 公约 数 。 

当 两 个 数 都 较 大 时 ,采用 轧 转 相 队 法 比较 方便 。 其 方法 是 ; 以 小 数 除 大 数 ,如 果 能 整 
除 , 那 么 小 数 就 是 所 求 的 最 大 公约 数 ; 否则 就 用 余数 来 除 刚才 的 除数 ,再 用 这 新 除法 的 余数 
去 除 刚 才 的 余数 ,以 此 类 推 ,直到 一 个 除法 能 够 整除 ,这 时 作为 除数 的 数 就 是 所 求 的 最 大 
公约 数 。 例 如 , 求 4453 和 5767 的 最 大 公约 数 时 ,可 做 如 下 除法 : 5767 二 4453 一 1 余 
1314,4453 二 1314 一 3 余 511,1314 二 511 一 2 余 292,511 二 292 王 1 余 219 ,292 二 219 一 1 余 
73,219 二 73 王 3 余 0, 于 是 得 知 ,5767 和 4453 的 最 大 公约 数 是 73。 思 转 相 除法 流程 图 见 


图 9. 32 ,其 对 应 的 图 数 子 程序 是 gcd1l 。 
输 转 相 除 法 可 以 换 一 种 描述 方式 : 以 小 数 除 大 数 ， 


如 果 能 整除 ,那么 小 数 就 是 所 求 的 最 大 公约 数 ; 若 不 能 


求 A 除 以 B 的 余数 C 


整除 , 则 小 数 和 余数 的 最 大 公约 数 就 是 原来 大 数 和 小 数 
的 最 大 公约 数 。 

这 种 描述 具有 递归 的 3 个 特征 ; 将 最 初 两 个 数 
的 最 大 公约 数 求解 ,不 断 转移 成 另 一 组 两 个 较 小 数 的 最 C 一 一 A 除 以 B 的 余 妆 
大 公约 数 求 解 (“自己 调用 自己 ”); 加 这 种 转移 求解 是 ”上 箱 呈 C-0 卫 的 而 项 8B， 记 最 天 仅 数 
有 限 次 的 ; @ 当 两 个 数 整除 时 ,这 种 转移 处 理 停止 ,此 图 9.3? 加 转 相 除法 流程 图 
时 除数 就 是 最 大 公约 数 。 

饶 转 相 除法 求 最 大 公约 数 的 递归 算法 如 下 : 


ee 
gcd2(m,n) = | 
lgcd2(nsk) mn = pk 


输 转 相 除 法 递归 算法 的 递归 函数 记 为 gcd2。 
求 差 判定 法 类 似 于 驾 转 相 除 法 ,只 不 过 是 将 整除 运算 改 成 了 求 差 运算 。 其 递归 形式 的 
算法 是 : 
7 m= 二 nn 
gcd3(m ,nn) 一 je Rn) mn 

gcd3(7 一 72 772) m=n 
求 差 判定 法 递归 算法 的 递归 函数 记 为 gcd3。 
编写 各 个 子 程 序 和 验证 主 程序 如 下 ,程序 运行 结果 如 图 9. 33 所 示 。 
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INTEGER FUNCTION GCD1 (M,N) 
INTEGER K 
K= MOD(M, N) 
DO WHILE(K/ = 0) 
M=N 
N=K 
K= MOD(M, N) 
ENDDO 
GCD1 = N 
FND 


RECURSIVE INTEGER FUNCTION GCD2(M, N) RESULT(K) 
L= MOD(M, N) 
IF(L == 0)THEN 
K=N 
ELSE 
K = GCD2(N,L) 
ENDIF 
END 


RECURSIVE INTEGER FUNCTION GCD3(M, N) RESULT(K) 
IF(M== N)THEN 
K=N 
ELSE IF(M> N)THEN 
K= GCD3(M— N,N) 
K= GCD3(N— M,M) 
ENDIF 
END 


PROGRAM EXAM9 16 
INTEGER M, N, T, GCD1, GCD2, GCD3 ! 函数 名 类 型 符合 I-K 规 则 ,需要 特别 说 明 
READ*x ,M,N 
IF(M < N)THEN 
T=M 
M=N 
N = 了 
ENDIF 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 轧 转 相 除 法 非 弟 归 ): ",GCD1 (M,N) 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 轧 转 相 除 法 递归 ): ",GCD2 (M,N) 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 求 差 判 定 法 递归 ): ",GCD3(M,N) 
FORMAT( 218, A, I5) 


图 9.33 例 9-16 运行 结果 


9.6.2 内 部 子 程序 


FORTRAN95 中 还 可 以 将 子 程序 定义 在 某 些 程序 单元 的 内 部 ,将 子 程序 做 一 个 归属 ， 
这 样 的 子 程序 不 再 是 一 个 独立 的 程序 单元 ,而 是 一 个 内 部 子 程序 。 一 般 形 式 如 下 


PROGRAM MAIN (或 FUNCTION 或 SUBROUTINE ) 
CONTAINS 内 部 子 程序 要 在 CONTAINS 后 面 书写 
SUBROUTINE LOCALSUB 

t rocarsuB 只 能 在 包含 它 的 程序 单元 中 被 调用 
END SUBROUTINE LOCALSUB 
FUNCTION LOCALFUNC 


tocArgUxc 只 能 在 包含 它 的 程序 单元 中 被 调用 
END FUNCTION LOCALFUNC 
END [PROGRAM] (/FUNCTION/ SUBROUTINE) 


除了 内 部 子 程序 所 在 的 程序 单元 外 ,内 部 子 程序 不 能 被 其 他 程序 单元 调用 。 
【 例 9-17】 将 例 9-16 改写 为 内 部 子 程序 调用 形式 。 


PROGRAM EXAM9 17 
INTEGER M, N, T, GCD1, GCD2, GCD3 ! 图 数 名 类 型 符合 I-N 规 则 ,需要 特别 说 明 
RERD 关 ，M,N 
IF(M < N)THEN 

T=M 
M=N 
机 和 = 
ENDIF 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 轧 转 相 除 法 非 递 归 ): ",GCD1 (M,N) 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 轧 转 相 除 法 递归 ): ",GCD2 (M,N) 
PRINT 10, M,N, "的 最 大 公约 数 是 ( 求 差 判定 法 递归 ): ",GCD3 (M,N) 
10 FORMAT(218,A,I5) 
CONTAINS 
INTEGER FUNCTION GCD1 (M, N) 
INTEGER K 
K = MOD(M, N) 
DO WHILE(K/ = 0) 
M=N 
N=K 
K = MOD(M, N) 
ENDDO 
GCD1 =N 
END 


RECURSIVE INTEGER FUNCTION GCD2 (M,N) RESULT(K) 
L= MOD(M, N) 
IF(L== 0)THEN 
K=N 
ELSE 
K= GCD2(N,L) 
ENDIF 
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END 


RECURSIVE INTEGER FUNCTION GCD3(M, N) RESULT(K) 
IF(M== N)THEN 
K=N 
ELSE IF(M> N)THEN 
K = GCD3(M— N,N) 
ELSE 
K = GCD3(N— M,M) 
ENDIF 
END 
END 


国 管理 员 : "Hi;\Wwf\shiyan\shiyan\Debug\shiyan.exe” 


图 9.34 例 9-17 运行 结果 


程序 运行 结果 同 例 9-16 ,如 图 9. 34 所 示 。 只 是 子 程序 GCD1、GCD2 和 GCD3 只 能 在 
当前 主 程序 单元 中 被 调用 ,不 能 再 被 当前 主 程序 单元 以 外 的 程序 单元 调用 。 

使 用 内 部 子 程序 时 应 注意 以 下 几 点 。 

(1) 一 个 主 调 程序 单元 可 以 包含 多 个 内 部 子 程序 。 内 部 子 程序 必须 写 在 CONTAINS 
后 .END 语句 之 前 。 内 部 子 程序 的 书写 顺序 任意 。 

(2) 内 部 子 程序 的 名 字 不 能 作为 其 他 子 程序 的 实 参 。 

(3) 内 部 子 程序 只 能 被 其 所 在 的 程序 单元 或 同一 程序 单元 的 其 他 内 部 子 程序 调用 。 

(4) 同一 个 程序 单元 中 内 部 子 程序 可 以 平行 定义 多 个 ,但 内 部 子 程序 之 间 不 能 般 套 
定义 。 


9.7 数据 共用 存储 单元 与 数据 块 子 程序 
不 同 的 程序 单元 之 间 除 了 可 以 通过 传递 参数 (虚实 结合 ) 的 方式 来 交换 数据 ,还 可 以 通 
过 共用 存储 单元 来 让 不 同 程序 单元 中 的 变量 使 用 相同 存储 空间 的 方式 来 传递 数据 。 
9.7.1 等 价 语 铝 


等 价 语句 (EQUIVALENCE 语句 ) 是 说 明 语 句 , 它 必须 出 现在 程序 单元 的 可 执行 语句 
之 前 。 它 的 作用 是 让 同一 个 程序 单元 中 的 两 个 或 更 多 的 变量 共用 同一 个 存储 单元 。 这 里 需 
要 特别 强调 的 是 同一 个 程序 单元 中 。 因 此 , 主 程序 和 子 程 序 、 子 程序 和 子 程 序 之 间 的 不 同 变 
量 不 能 用 EQUIVALENCE 语句 来 指定 共用 存储 单元 。 等 价 语句 的 形式 如 下 : 

EQUIVALENCE( 变量 表 1), (变量 表 2), 
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一 个 等 价 语句 可 同时 建立 多 组 等 价 , 每 个 等 价 由 一 对 括号 内 的 变量 列表 构成 ,等 价 关系 
多 于 一 个 时 ,括号 间 用 逗号 隔 开 。 括 号 内 的 变量 表 可 以 是 变量 名 、 数 组 名 或 数组 元 素 ,但 应 
该 有 至 少 两 个 变量 名 出 现 ,它们 之 间 用 有喜 叶 隅 开 , 但 不 允许 出 现 虚 参 名 。 例 如 : 
EQUIVALENCE( W, ST) 
这 条 语句 指定 本 程序 单元 中 的 变量 W 和 ST 同 占 一 个 存储 单元 , 称 W 和 ST 等 价 ， 
INTEGER A(6), B(4,2) EQUIVALENCE( A, B) 


当 等 价 语句 括号 内 的 变量 列表 为 数组 名 或 数值 元 对 名 时 ,所 建立 的 等 价 关 系 是 两 个 数 
组 或 数组 片段 之 间 的 等 价 ,不 是 单个 数组 元 素 之 间 的 等 价 。 本 例 中 ,A 数组 有 6 个 数组 元 
素 ,B 数组 有 8 个 数组 元 素 ,该 等 价 语句 建立 了 A 数组 的 全 部 数组 元 素 与 B 数组 中 存储 次 
序 前 6 个 数组 元 素 之 间 的 等 价 , 即 A(1) 与 B01,1)、.A(2) 与 B(2,1).、A(3) 与 BG(3,1)、A(4) 
与 B(4,1).A(5) 与 B(1, 2)、.A(6) 与 B(2,2) 等 价 。 
硅 简 单 变量 和 数组 元 率 间 建立 等 价 , 则 只 是 简单 变量 与 数组 元 素 共 享 同 一 存储 单元 。 
利用 等 价 场 名 可 以 节省 内 存 , 也 可 以 允许 程序 员 用 两 个 或 更 多 的 变量 名 代表 同一 个 量 ， 
以 简化 程序 的 修改 ,更 重要 的 是 在 有 些 地 方 可 以 简化 程序 的 设计 ，。 
【 例 9-18】 写 出 下 面 程序 的 运行 结果 。 
INTEGER A(4),B(3,2),I,J,K,M(6) 
EQUIVALENCE(A,B), (1,J,K), (B(2,1),M), (1,A(3)) 
A= (/1,2,3,4/) 
工 = 5 
PRINTX ,A 
PRINT 10,((B(L,N),N= 1,2),L=1,3) 
PRINT* ,I,J,K 
PRINT* ,M 
10 FORMAT(2I13) 
END 
上 述 程序 建立 了 4 组 等 价 , 形 成 了 不 同名 称 之 间 的 关联 ,图 9. 35 给 出 了 等 价 语句 建立 
后 内 存单 元 共享 关系 图 。 从 图 中 可 知 [JJK、A(3)、B(3,1) 和 M(2) 均 为 同一 个 存储 单元 的 
不 同名 称 , 它 们 当中 的 任何 一 个 都 可 修改 此 存储 单元 的 伸 。 这 里 通过 给 数组 A 赋值 ,首先 
将 1.2,3 和 4 存储 到 指定 单元 ,然后 通过 给 I 赋值 5 改变 了 第 三 个 存储 单元 的 值 ,因此 J、 
K、A(3)、B(3,1) 和 M(2) 的 值 也 就 成 为 5。 程序 运行 结果 如 图 9. 36 所 示 。 
K. 
J 
| 


A(l) A(2) A(3) A(4) 


莉 强 本 到 区 于 本 于 本 时 到 时 到 吧 


B(1, 1) BGQ2, 1) BG, 1) B(, 2) B(2, 2) B(3, 2) 
MI(1) MI(2) M(3) M4) ML(>) MLO) 


图 9.35 等 价 语 句 建立 的 内 存单 元 共享 关系 示意 图 
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画 管理 员 : "Hi\wh\shiyan\shiyan\Debug\shiyan.exe” 中 中 


图 9.36 例 9-18 运行 结果 


【 例 9-19】 设计 一 个 子 例 行 子 程序 ,对 一 个 二 维 数组 按 存储 结构 的 顺序 排序 。 
分 析 : 一 维 数组 的 排序 方法 在 前 面 已 经 学 过 ,这 里 设计 一 个 与 二 维 数组 等 价 的 一 维 数 


组 ,对 一 维 数组 排序 相当 于 对 二 维 数组 排序 ,从 而 简化 程序 的 设计 。 
程序 编写 如 下 : 


PROGRAM EXRM9 19 
PARAMETER (N= 3,M= 4) 
INTEGER A(N,M),B(N* M) 
EQUIVALENCE (A,B) 
READ * ,LSEED 
DOI=1,N 
DOJ=1,M 
A(I,J) = INT(RAN( ISEED) x*x 100) 
ENDDO 
PRINT *, "排序 前 的 数组 :" 
DOI=1,N 
PRINT "(<M> 14)",(A(I,J),J=1,M) 
CALL SORT(N x* M,B) 
PRINT x*, "排序 后 的 数组 :" 
DOI=1,N 
PRINT "(<M> 14)",(A(I,J),J=1,M) 
ENDDO 
END 


SUBROUTINE SORT(N, A) 
INTEGER A(N),T 


DOI=1,N-1 
DOJ=1,N-—I 
IF(A(J)> A(J + 1))THEN 排序 前 的 数组 ， 
T=A(J) 0 66 2 26 
51 82 87 92 
A(J) = A(J+1) 91 ?70 90 42 
A(J+1)=T 
ENDIF 
es .26 66 B87 92 
青 按 人 尾音 键 继续 . . . 


程序 运行 时 输入 6 ,其 运行 结果 如 图 9. 37 所 示 。 图 9.37 例 9-19 运行 结果 
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使 用 等 价 语 名 时 应 注意 以 下 几 点 。 

(1) 等 价 语句 每 对 括号 中 的 变量 可 以 具有 不 同 的 类 型 ,但 是 由 于 不 同类 型 的 变量 数据 
存储 形式 不 同 ,因而 定义 这 种 等 价 天 系 没 有 意义 。 

(2) 不 能 利用 等 价 语句 建立 予 盾 的 等 价 天 系 。 例 如 : 


DIMENSION A(10) 
EQUIVALENCE(A(1),B(2)), (A(3),B(2)) 


(3) 等 价 语句 只 能 建立 同一 个 程序 单元 内 的 等 价 关系 。 
9.7.2 公用 语 铝 


公用 语句 (COMMON 语句 ) 用 来 定义 一 块 共享 的 内 存 空间 ,从 而 进行 数据 传递 。 
【 例 9-20】 将 例 9-19 用 COMMON 语句 来 实现 ， 
程序 编写 如 下 : 


PROGRAM EXAM9 20 
PARAMETER (N= 3,M= 4) 
INTEGER B(N,™) 
COMMON B 
READ * ,ISEED 
DOI=1,N 
DOJ=1,M 
B(I,J) = INT(RAN(ISEED) * 100) 
ENDDO 
ENDDO 
PRINT x*，, "排序 前 的 数组 :" 
DOI=1,N 
PRINT "(<M> 14)", (B(1,J),J= 1,M) 
ENDDO 
CALL SORT( ) 
PRINT *，" 排 序 后 的 数组 :" 
DOI=1,N 
PRINT "(<M> 14)", (B(I,J),J= 1,M) 
ENDDO 
END 


SUBROUTINE SORT( ) 
PARAMETER(N = 12) 
INTEGER A(N),T 
COMMON A 
DOI=1,N-1 
DOJ=1,N-I 
IF(A(J)> A(J + 1))THEN 
T= A(J) 
A(J)= A(J+1) 
A(J+1)=T 
ENDIF 
ENDDO 
ENDDO 
END 
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程序 运行 结果 如 图 9. 38 所 示 。 
这 个 程序 中 , 主 程序 单元 和 子 程序 单元 都 出 现 了 一 个 新 
的 命令 COMMON ,COMMON 后 的 变量 会 占用 同一 个 存储 上 | i ee 
区 间 ( 公 用 区 ) ,因此 二 维 数组 B 和 子 程 序 单元 的 一 维 数 组 A | / 
共同 占用 同一 片 存储 区 间 , 对 B 数组 的 操作 也 就 是 对 A 数 


31 9 35 5 

中 排序 后 的 数组 ， 
gg 5 35 68 
9 24 37 ?7 


组 的 操作 ,反之 亦 然 。 @ 31 67 81 


中 青 按 任 音 键 排 续 . - . 
PT 


例 9-19 是 在 同一 个 程序 单元 中 将 二 维 数 组 等 价 成 一 维 
数组 后 通过 参数 传递 进行 排序 ,而 本 例 是 通过 COMMON 
语句 来 将 不 同 程序 单元 之 间 的 变量 (数组 ) 通 过 公用 区 (地 址 9.38 例 9-20 运行 结果 
对 应 ) 进 行 数 据 共 享 。 

FORTRAN 程序 中 有 两 种 公用 区 。 一 种 是 无 名 公用 区 ,一 种 是 有 名 公用 区 。 任 何 一 个 
程序 中 只 可 能 有 一 个 无 名 公用 区 。 一 个 程序 中 可 以 根据 需要 由 程序 员 开 尽 任 意 多 个 有 名 公 
用 区 。 

1. 无 名 公用 区 

开辟 无 名 公用 区 的 COMMON 语句 一 般 形式 如 下 ; 

COMMON 变量 表 … 

变量 表 中 允许 是 普通 变量 名 、 数 组 名 和 数组 说 明 符 (注意 : 并 不 是 数组 元 素 ) ,它们 之 间 

在 主 程序 中 写 , COMMON X,Y,I,2Z(3) 

在 子 程 序 中 写 , COMMON A,B,J,T(3) 

主 程序 在 无 名 公用 区 中 定义 了 实 型 变量 X、Y ,数组 Z 及 整形 变量 1, 在 子 程 序 中 则 在 无 
名 公用 区 中 定义 了 实 型 变量 A 和 B、 数 组 TT 及 整 型 变量 J]。FORTRAN 编译 程序 在 编译 时 
为 以 上 的 COMMON 语句 开辟 一 个 无 名 公用 区 ,不同 程序 单元 在 COMMON 语句 中 的 变量 
按 其 在 语句 中 出 现 的 先后 顺序 占用 无 名 公用 区 中 连续 的 存储 单元 。 因 此 X 和 A、 和 了 BI 
和 J 以 及 数组 Z 和 人 工分 别 被 分 配 在 相同 的 存储 单元 中 ,数组 Z 和 人 工 共 同 占 三 个 相 邻 的 存储 
单元 ,如 图 9. 39 所 示 。 


主 程序 变量 XX Y I zf Z2 23) 
子 程序 变量 A B | Tl) T2) -TT(3) 


9. 39 ” COMMON 建立 的 无 名 公用 区 共享 关系 


从 图 9. 39 可 以 看 到 ,对 于 同一 个 存储 单元 , 主 程序 以 名 字 X 调用 ,而 子 程序 以 名 字 A 
调用 ,通过 这 种 方法 建立 起 X 和 A 的 联系 。 如 果 在 子 程序 中 想 要 传递 数据 给 主 程序 的 X 
变量 ,只 需要 问 A 赋予 要 传递 的 值 即 可 ,反之 亦 然 。 

COMMON 请 名 开辟 公用 区 的 主要 用 途 就 是 使 不 同 程 序 单 元 的 变量 之 间 进 行 数据 传 
递 。 只 要 把 需要 传递 数据 的 变量 按 顺 序 分 别 放 在 各 日 程序 单元 的 COMMON 语句 中 ,也 就 
是 说 按 一 一 对 应 的 关系 放 在 公用 区 中 ,就 可 使 两 个 不 同 程序 单元 之 间 的 变量 建立 起 数据 
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以 下 两 个 例子 都 是 利用 子 例 行 子 程序 解 一 元 二 次 方程 的 两 个 根 , 虽 人 然 主 程序 和 了 于 程序 
之 间 数 据 传递 的 方式 不 同 ,但 它们 的 效果 都 是 一 样 的 。 
[ 例 9 21) 通过 虚实 结合 进行 数据 传递 。 


READ( * , * ) Al, M2,A3 SUBROUTINE QUAD(A, B,C, xX1, xXx2) 
CALIL OUAD(A]1, A2, A3, 21, 22) P= —B/(2.0*1) 
WRITE( < , * )Z1,22 Q= SORT((Bx*xB-4.0x AxC)/(2.0*A)) 
END Xl= P+0 
X2= PP- 0 
END 
【 例 9-22】 通过 公用 区 进行 数据 传递 。 
COMMON Z1 , Z2 ,RAR1 ,AM2 ,ARA3 SUBROUTINE QUAD 
READ( < , * )Al, A2,A3 COMMON X1, X2, A,B,C 
CALL QUAD P= —B/(2.0*1) 
WRITE( *x , * )Z1,22 0Q= SORT((Bx*xB-4.0x AxC)/(2.0* A)) 
END Xl= P+0 
XxXx2=P—-0 
END 


在 程序 设计 中 ,通常 采用 虚实 结合 和 公用 区 两 种 方式 交换 数据 。 当 需要 传递 数据 的 变 
量 不 多 ,而 且 只 有 少数 几 个 程序 单元 需要 使 用 这 些 数据 时 ,就 用 虚实 结合 的 方式 。 当 需要 传 
递 大 批 数据 ,或 是 有 很 多 个 不 同 程序 都 需要 使 用 这 些 数据 时 ,就 使 用 COMMON 语句 。 

建立 无 名 公用 区 的 COMMON 语句 的 使 用 规则 和 特点 如 下 。 

(1) COMMON 语句 是 说 明 语 句 , 必 须 出 现在 所 有 可 执行 语句 之 前 。COMMON 语句 
中 只 允许 出 现 变 量 名 、 数 组 名 和 数组 说 明 符 ,后 者 意味 着 可 用 COMMON 语句 定义 数组 ,此 
数组 必然 是 放 在 公用 区 中 。 例 如 以 下 COMMON 语句 : 


COMMON A, B, NP(15), LOC(2,4) 


就 相当 于 以 下 两 条 语句 : 

DIMENSION NP(15), LOC(2,4) 

COMMON A, B, NP, LOC 

(2) 由 于 公用 语句 中 的 变量 在 编译 时 已 被 分 配 在 实在 的 存储 单元 中 ,因此 在 
COMMON 语句 中 不 能 出 现 虚 拟 参 数 、 可 调 数 组 ,但 是 可 调 数 组 的 维 上 、 下 界 变 量 可 以 通过 
COMMON 语句 传递 ,当然 这 些 变量 就 不 再 允许 出 现在 虚 参 表 中 。 例 如 : 

SUBROUTINE SUB(A, B) 


COMMON NA, NB 
DIMENSION A(NA),B(NB) 


为 了 程序 清晰 起 见 , 通 篆 不 提倡 采用 这 种 方式 ,而 是 通过 虚实 绪 合 来 传递 与 可 调 数 组 有 
关 的 全 部 量 。 
(3) 一 个 程序 在 运行 过 程 中 只 有 一 个 无 名 公用 区 。 在 同一 个 程序 单元 中 可 以 出 现 几 个 
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COMMON 语句 ,它们 的 作用 相当 于 一 个 。FORTRAN 编译 程序 按 COMMON 语句 在 同一 
程序 单元 中 出 现 的 先后 次 序 把 语句 中 的 变量 按 顺 序 放 在 无 名 公用 区 的 存储 单元 中 。 
例如 ,在 主 程序 中 有 以 下 语句 : 


COMMON A, B,C,D 
COMMON A1,B1,C1,D1 


在 子 程 序 中 有 以 下 请 人 句 : 


COMMON A1l,B1,C1,D1 


COMMON A,B 
COMMON C 
变量 在 无 名 公用 区 中 的 存储 分 配 和 共享 对 应 关系 如 图 9. 40 所 示 。 
主 程序 变量 A B C D Al Bl C] D1 
子 程序 变量 “Al Bl Cl A B C 


图 9. 40 ”变量 在 无 名 公用 区 的 分 配 、 共 至 对 应 关系 


(4) 各 程序 单元 COMMON 语句 中 的 变量 类 型 必须 按 位 置 一 一 对 应 一 致 才能 正确 传递 

(5) 在 一 个 程序 单元 中 ,分 配 在 公用 区 中 的 名 字 只 能 在 公用 语句 中 出 现 一 次 。 例 如 : 

COMMON A, B, C 

COMMON Al, Bl, A 
是 错误 的 ,因为 变量 A 在 公用 语句 中 出 现 了 两 次 。 

(6) 各 程序 单元 中 ,无 名 公用 区 中 的 变量 个 数 可 以 不 一 样 , 但 只 有 在 前 面 有 对 应 关系 的 
变量 才 建 立 起 对 应 关系 。 

(7) 不 要 混淆 EQUIVALENCE 语句 和 COMMON 语句 的 作用 。EQUIVALENCE 语 
句 是 给 同一 程序 单元 中 的 不 同 变量 分 配 同一 个 存储 单元 ; 而 COMMON 语句 则 用 于 给 不 同 
程序 单元 之 间 的 变量 分 配 同 一 存储 单元 。 因 此 不 允许 在 同一 程序 单元 中 写 : 

COMMON A, B, C 

EQUIVALENCE (A, B) 
因为 COMMON 语句 把 变量 A、B、C 分 配 在 公用 区 中 相 邻 的 三 个 存储 单元 中 , 而 
EQUIVALENCE 语句 却 又 要 把 A、B 分 配 在 同一 个 存储 单元 中 ,两 者 是 矛盾 的 ,因此 茶 止 
以 上 写法 。 

2. 有 名 公用 区 

由 于 无 名 公用 区 中 各 程序 单元 之 间 数 据 传递 按 公 用 区 中 变量 名 的 排列 顺序 一 一 对 应 进 
行 , 这 虽然 实现 了 程序 单元 之 间 的 数据 迅速 传递 ,但 也 会 在 程序 设计 时 出 现 新 的 麻烦 。 
例如 : 


PROGRAM MRIN 
COMMON I,J,K,L,M,N= 在 COMMON 语句 中 定义 了 6 个 整 型 变量 
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END 
SUBROUTINE SUB( ) 假设 子 程序 中 只 使 用 下 和 主 程序 的 昌 传 递 数 据 , 为 了 
COMMON N1, N2, N3, N4, N5,K 保证 一 一 对 应 的 关系 , 仍 需要 给 出 前 面 5 个 变量 ,才能 
将 变量 玉 和 日 对 应 起 来 


END 


这 种 肤 烦 在 公用 区 变量 多 的 情况 下 更 为 复杂 。 用 一 个 办 法 可 以 解决 这 一 问题 ,就 是 将 
变量 归 类 , 放 在 彼此 独立 的 COMMON 区 间 中 。 针 对 上 面 的 情况 ,可 以 改 为 : 


PROGRAM MAIN 


/ N 语句 中 定义 一 个 无 名 公用 | , 变 - . 
站 


变量 可 放 在 了 有 名 公用 区 2Z1 中 


END 


SUBROUTINE SUB( ) 


a 子 程序 中 只 需要 在 有 名 公用 区 Z1 中 定义 下 变量 ， 


K 就 和 主 程序 的 是 建立 对 应 关系 

END 

FORTRAN 提供 有 名 公用 区 来 进行 归 类 。 将 各 程序 单元 之 间 需 要 传递 数据 的 变量 放 
在 某 个 名 字 的 公用 区 中 。 这 样 一 来 就 避免 了 无 名 公用 区 的 棘 病 ,使 之 做 到 公用 之 中 有 “ 专 
用 ”, 人 们 只 需要 在 各 程序 单元 中 做 到 同名 公用 区 中 数据 顺序 一 一 对 应 即 可 。 有 名 公用 区 的 
使 用 不 仅 保 留 了 各 程序 单元 之 加 数据 的 快速 传递 ,也 使 程序 得 到 了 侧 化 。 

COMMON 语句 说 明 有 名 公用 区 的 一 般 形 式 如 下 : 

COMMON /公用 区 名 1/ 变 量 表 1, …/ 公 用 区 名 2/ 变 量 表 2，… ,… 

公用 区 名 放 在 两 个 和 斜 杠 之 间 , 取 名 规则 与 变量 相同 。 公 用 区 名 可 以 和 本 程序 单元 中 的 
变量 同名 ,但 不 允许 和 子 程序 同名 。 也 可 以 用 两 个 连续 的 斜 杠 来 表示 无 名 公用 区 。 例 如 : 

COMMON R, X,Y,Z /C2/AM,B,C 
也 可 以 写成 : 

COMMON //R,X,Y,2Z /C2/A,B,C 

COMMON /C2/A,B,C//R, X,Y,7 

说 明 有 名 公用 区 的 规则 与 说 明 无 名 公用 区 的 规则 基本 相同 。 
9.7.3 ”数据 块 子 程序 

COMMON 中 的 变量 不 能 直接 在 子 程序 或 主 程序 中 使 用 DATA 语句 来 赋 初 值 ,需要 通 
过 在 BLOCK DATA 程序 模块 中 使 用 DATA 语句 来 赋 初 值 。BLOCK DATA 程序 模块 称 


为 数据 块 子 程序 。 它 是 一 种 特殊 的 子 程 序 , 只 是 用 来 给 公用 区 中 的 变量 赋 初 值 。 数 据 块 于 
程序 是 一 个 独立 的 程序 单元 ,可 以 单独 进行 编 详 。 
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【 例 9-23】〗 数据 块 子 程序 应 用 示例 。 


PROGRAM EXAM9 23 


COMMON I,J 
COMMON /2Z1/K,L 
COMMON /22/M,N 
PRINT * ,A,B 
PRINT * ,K,L 
PRINT x* ,M,N 
END 


BLOCK DATA 
COMMON I,J 
COMMON /2Z1/K,L 
COMMON /22/M,N 
DATA I,J/1,2/ 
DATA K,L/3,4/ 
DATA M, N/5, 6/ 


! 数据 块 子 程序 

上 IJ 定义 在 无 名 公用 区 中 
!K 民 和 定义 在 有 名 公用 区 2Z1 中 
IMN 定 义 在 有 名 公用 区 22 中 
! 给 工 J 赋 初 值 

! 给 KK. 工 赋 初 值 

! 给 M,N 赋 初 值 


END BLOCK DATA 


程序 运行 结果 如 图 9. 41 所 示 。 
数据 块 子 程序 的 说 明 形 式 和 说 明 规 则 如 下 。 — i 
、 二 Re | a 、 gl 管理 局 ， HAvienoanyehyanD 
(1) 数据 块 子 程序 必须 以 BLOCK DATA 作为 “上 听 -67574196*09 -1.0737418E*08 
第 一 个 语句 ,以 END 作为 最 后 一 个 语句 。 说 明 形 | E E 
式 如 下 : 


5 
用 青 按 尾音 刍 继 续 ..。.。 


Pe 
BLOCK DATA [ 子 程 序 名 ] 
变量 定义 语句 图 9.41 例 9-23 运行 结果 
COMMON 语句 
DATA 语句 
END 


(2) 数据 块 子 程序 只 是 用 来 给 公用 区 中 的 变量 赋 初 值 , 不 能 被 别 的 程序 单元 调用 ， 

(3) 数据 块 子 程序 中 不 允许 出 现 可 执行 语句 ,只 允许 出 现 DATA、COMMON、 
DIMENSION 、.EQUIVALENCE 和 类 型 说 明 语 句 。 其 中 DATA 语句 和 COMMON 语句 是 
必 不 可 少 的 。 

(4) 指定 的 某 个 公用 区 中 的 所 有 变量 (即使 其 中 有 些 变 量 并 不 要 求 在 DATA 语句 中 赋 
初 值 ) 都 必须 按 顺 序 一 一 列 在 COMMON 语句 中 。 例 如 ; 

BLOCKR DATA 

DIMENSION A(10), B(S5) 

COMMON/COM/A, X Y, 2z, B, I 

INTEGER KX, Y, 2 

DATA X Y¥, 2Z/3* 0/, B/5* 0.0/ 

END 
是 一 个 完整 的 数据 块 子 程序 。 虽然 DATA 语句 中 只 需要 给 COM 公用 区 中 X、Y、Z 变量 和 
B 数组 的 元 奈 赋 初 值 , 但 仍然 要 列 出 COM 公用 区 中 的 所 有 变量 (名 宇 可 任意 ,类 型 必须 对 
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应 一 致 ) 。 
(5) 一 个 FORTRAN 程序 可 以 包含 任意 多 个 数据 块 子 程序 ,但 每 个 公用 区 中 的 变量 只 
能 在 一 个 数据 块 子 程序 中 赋 一 次 初 值 ,不 允许 把 一 个 公用 区 中 的 变量 分 在 几 个 数据 块 子 程 
序 中 赋 初 值 。 


1. 指出 下 列 错 误 的 语句 图 数 定义 。 
(1) F(X,Y)= (X+Y)/(Xx*Y)+7.0 

(2) F (1,J,6)=3xI+2xJ+0.5*6 
(3) H(A,B,C(I)) = SIN(A) + SIN(B) + C(I) 
(4) S(A,B,C)=Ax*xB+S(Ax A,B,C) 

2. 有 以 下 请 句 函 数 : 
P(A,B,C)=A+B*xC 


用 P(2.0,3.0,P (2.0,1.0,3.0)) 调 用 后 的 值 是 ( ) 。 
A) 17.0 B) 11.0 C) 20.0 D) 29. 0 
3. 给 出 下 列 程 友 的 运行 结果 。 
(1) DIMENSION A(4) 
DATA A/1.1,2.2,3.3,4.4/ 
N=3 
PRINT *, (A(I),I=1,4) 
PRINT x* ,NF(N,A(N),A(N+1)),N 
PRINT *, 'N= ',N 
END 


FUNCTION NF(K, X,Y) 


NF=X+Y 
K=K+1 
END 


(2) INTEGER A(3, 4), B(4, 3) 
DATA A/3*1, 3*2, 3#*3, 3*4 
CALL SUB(A, B) 
PRINT 10，((B(I,J),J=1,3),I=1,4) 
10 FORMAT (1X, 314) 
END 


SUBROUTINE SUB(A, B) 
INTEGER A(3, 4) ,B(4, 3) 
DOI=1,3 

DOJ=1,4 

B(J, I )=A(I, J) 
ENDDO 

ENDDO 

END 
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(3) COMMON A,B,C,D 
A=1.0 
B= 2.0 
C=3.0 
D= 4.0 
CALL ABCD(2) 
WRITE( *x , * )A,C 
END 


SUBROUTINE ABCD(N) 
COMMON B,C,D,A 
IF(N.GT.0) THEN 
B=A 
C=D 
ENDIF 
END 

(4 


DIMENSION X(5) 

COMMON A,B,X 

A= 一 2.3 

B=2.6 

DOI=1,5 
xX(I)=A*I 

ENDDO 

CALL SUB 

END 

SUBROUTINE SUB 

COMMON R,Y, T(6) 

PRINT x* , R,Y,T 

END 


. 下 列 关 于 等 价 语句 的 使 用 中 ,不 正确 的 是 ( J 
A. DIMENSION A(6),B(10) 
EQUIVALENCE (A(1),B(2)), (A(3),B(3)) 


A 


B. DIMENSION A(2,3) B(4) 
EQUIVALENCE (A(2,1), B(1)) 


(CC. DIMENSION A(2,3) B(2,2) 
EQUIVALENCE (A(1,2),B(1,1)) 


DD). DEMENSION A(2,3) B(6) 
EQUIVALENCE (A, B) 


5. 编写 函数 子 程序 power (i,k) 二 让 与 so0p (ns,k) 一 > power (i,k) 


调用 子 程序 求解 > x*,k 和 的 值 由 键盘 输入 。 

6， 编 写 图 数 子 程序 ,计算 所 输入 的 两 个 整数 MN 的 最 大 公约 数 。 

7. 编写 函数 子 程序 ,输入 一 个 十 六 进 制 数 ,输出 相应 的 十 进 制 数 。 

8. 有 A.B 两 个 数列 ,编写 一 个 子 例 行 子 程序 ,从 A 中 删 去 在 B 中 出 现 的 数 ,在 主 程序 
中 输出 修改 前 的 A.B 数列 及 修改 后 的 A 数列 。 


9， 编写 子 程序 ,输出 利用 1 角 、2 角 和 5 角 硬 币 组 成 1 元 钱 的 各 种 方法 。 输 出 格式 为 : 
方法 号 ”1 角 硬 币 个 数 ”2 角 硬 币 个 数 5 角 硬 币 个 数 


1 10 0 0 
2 8 1 0 
3 6 2 0 


10. 角 夫 (日 本 数学 家 ) 猜 想 : 对 于 任意 一 个 目 然 数 ,比如 奇数 ,将 其 乘 以 3 再 加 1; 如 果 
是 偶数 将 其 际 以 2, 反复 运 算 会 出 现 什 么 结果 。 编 程 实现 。 

11. 下 楼 问题 : 从 楼 上 走 到 楼 下 共有 HH 个 台阶 ,每 一 步 有 3 种 走 法 : 走 1 个 台阶 ; 走 2 
个 台阶 ; 走 3 个 台阶 。 用 递归 方法 来 编程 给 出 可 以 走出 的 所 有 方案 。 

12. 编写 求 方 阵 主 对 角 线 、 副 对 角 线 所 有 元 素 和 的 函数 。 

13. 汉 诺 塔 是 由 三 根 杆 子 A、B.\C 组 成 的 。A 杆 上 有 N 个 (N 二 1) 穿 和 孔 圆 盘 , 盘 的 尺寸 
由 下 到 上 依次 变 小 。 要 求 按 下 列 规则 将 所 有 圆 盘 移 至 C 杆 : 每 次 只 能 移动 一 个 圆 盘 ; 大 盘 
不 能 登 在 小 盘 上 面 。 

以 三 个 盘子 为 例 ,编写 程序 说 明 如 何 移动 ,最 少 要 移动 多 少 次 。 

提示 : 可 将 圆 盘 临时 置 于 B 杆 ,也 可 将 从 A 杆 移出 的 圆 盘 重新 移 回 A 杆 , 但 都 必须 遵 

汉族 塔 育 录 介绍 : 

一 位 法 国 数学 家 曾 编 与 过 一 个 印度 的 证 老 传说 : 在 世界 中 
心 见 拿 勒 斯 (在 现 印度 北部 ) 的 圣 庙 里 ,一 块 黄 铜 板 上 插 看 三 根 
宝石 针 。 印 度 教 的 主神 焚 天 在 创造 世界 的 时 候 , 在 其 中 一 根 针 
上 从 下 到 上 地 罕 好 了 由 大 到 小 的 64 片 金 片 ,这 就 是 所 请 的 汉 话 
塔 。 不 论 日 天 黑夜 ,总 有 一 个 僧侣 在 按照 下 面 的 法 则 移动 这 些 
金 厂 : 一 次 只 移动 一 片 ,不 管 在 哪 根 针 上 ,小 族 必 须 在 大 片上 
面 。 僧 侣 们 预言 , 当 所 有 的 金 厂 都 从 栖 天 军 好 的 那 根 针 上 移 到 男 外 一 根 针 上 时 ,世界 就 将 在 
一 再 解 筋 中 消灭 ,而 焚 塔 庙宇 和 众生 也 都 将 同归于尽 。 

不 管 这 个 传说 的 可 信和 度 有 多 大 ,如 果 考 虑 把 64 片 金 片 由 一 根 针 上 移 到 另 一 根 针 上 ,并 
且 始 终 保 持 上 小 下 大 的 顺序 。 这 需要 多 少 次 移动 呢 ? 这 里 需要 用 递归 的 方法 。 假 设 有 NM 
片 ,移动 次 数 是 F(N)。 显 然 F(1)==1,F(2)==3,F(3) 二 7, 且 F(K 十 1) 一 2* F(K) 十 1。 此 
后 不 难 证 明 FCN) 王 2 一 1。N= 王 64 时 ,有 

F(64)= 24 一 1 一 18446744073709551615 

假如 每 秒 钟 一 次 , 共 需 要 多 长 时 间 呢 ? 一 个 平年 365 天 有 31 536 000s, 间 年 366 天 有 

31 622 400s ,平均 每 年 有 31 556 952s ,计算 可 知 , 共 需 要 
18446744073709551615/31556952 一 584554049253. 855 年 

这 表明 移 完 这 些 金 片 需要 5845 亿 年 以 上 ,而 地 球 存 在 至 今 不 过 45 亿 年 ,太阳 系 的 预期 

寿命 据说 也 只 有 数 百 亿 年 。 真 的 过 了 5845 亿 年 ,不 说 太阳 系 和 银河 系 ,至 少 地 球 上 的 一 切 


教学 目标 : 

。 理解 文件 的 基本 概念 ; 

。 掌握 常用 的 文件 操作 语句 OPEN 语句 ,READ 语句 、WRITE 语句 ; 
。 掌握 有 格式 文件 的 存 取 方式 和 应 用 ; 

。 了 解 无 格式 文件 的 存 取 方式 ; 

。 了 解 二 进 制 文件 的 存 取 方 式 。 


在 前 面 学 习 的 程序 中 ,输入 的 各 种 数据 以 及 程序 运行 结果 只 在 程序 运行 时 有 效 , 这 些 数 
据 都 是 暂时 存放 在 内 存 中 ,没有 做 长 期 保存 ,程序 结束 后 就 消失 了 。 如 果 想 长 期 保存 这 些 数 
据 ,就 要 用 文件 的 形式 。 

本 草 主 要 介绍 文件 的 基本 概念 、 文 件 的 操作 语句 以 及 文件 的 应 用 。 


10.1 文件 的 基本 概念 


10.1.1 记录 


记录 是 字符 或 数值 的 序列 ,在 行 式 打 印 机 输出 时 ,一 行 字符 就 是 一 个 记录 ,不 管 这 行 字 
符 有 多 少 个 。 在 键盘 输入 时 ,一 个 记录 是 以 “ 回 车 ” 符 作 为 结束 标志 。 在 磁盘 文件 中 ,“ 回 车 ” 
符 也 是 一 个 记录 结束 的 标志 。 

FORTRAN95 的 记录 有 以 下 三 种 方式 。 

1. 格式 记录 

格式 记录 是 一 个 有 上 友 的 格式 化 数据 序列 ,每 个 记录 以 “ 回 车 ” 符 作 为 结束 标志 。 在 输入 
输出 时 ,格式 记录 中 的 数据 要 经 过 编辑 转换 ,以 ASCII 码 或 其 他 信息 交换 码 的 方式 进行 传 
输 。 数 据 的 格式 由 用 户 指 定 或 者 由 编译 系统 规定 。 

2. 无 格式 记 孙 

无 格式 记录 是 由 二 进 制 代码 直接 传输 ,在 输入 输出 时 无 须 格式 转换 ,因而 传输 速度 较 
快 ,占用 磁盘 空间 也 较 小 。 

3. 文件 结束 记录 

文件 结束 记录 是 文件 结束 的 一 种 标志 ,由 系统 和 语言 本 和 号 来 规定 。 在 输入 输出 时 ,文件 
结束 记录 并 不 作为 数据 的 内 容 处 理 。 该 记录 可 由 语句 设置 ,或 者 由 系统 在 文件 操作 时 自动 
加 以 处 理 。 
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10.1.2 文件 的 概念 

文件 (File) 就 是 一 组 相关 信息 的 集合 ,主要 用 于 存储 程序 数据 以 及 各 种 文档 等 。 
定 任 何 一 组 信息 一 个 标识 符 并 将 其 存放 在 某 一 存储 介质 上 之 后 ,就 构成 一 个 文件 。 iy 
记录 的 序列 。 一 般 来 说 ,一 个 文件 包含 多 个 记录 (当然 也 可 以 是 无 记录 的 空 文件 ) ,记录 中 包 
舍 右 干 个 值 或 数据 项 。 

在 对 文件 进行 操作 时 是 以 记录 为 基本 单位 的 。 


10.1.3 文件 的 特性 


在 FORTRAN 中 ,每 一 个 文件 都 要 与 一 个 逻辑 设备 建立 关联 之 后 ,才能 对 其 进行 操作 。 
对 文件 的 一 系列 操作 包括 文件 的 打开 、 关 闭 、 定 位 ,输入 和 输出 等 ,通常 也 称 对 文件 的 存 取 或 
访问 。 而 对 一 个 可 操作 的 文件 ,在 操作 时 必须 指出 它 的 特性 ,否则 就 会 出 错 。 这 些 特 性 包 
括 : 文件 标识 、 文 件 的 存 取 方式 、 文 件 的 结构 和 文件 允许 记录 的 长 度 。 

1. 文件 标识 

文件 标识 由 文件 的 标识 符 来 实现 ,如 c:\chengxu\diyizhang\1. dat 就 是 文件 1. dat 的 文 
件 标识 全。 计算 机 在 对 文件 进行 操作 时 前 先 根据 文件 标识 符 寻 找 文件 。 

2. 文件 的 存 取 方式 

在 FORTRAN 中 文件 的 存 取 方式 有 两 种 : 顺序 存 取 方式 和 直接 存 取 方式 。 对 应 的 文 
件 分 别称 为 顺序 存 取 文件 和 直接 存 取 文件 (或 随机 存 取 文件 )。 

顺序 文件 的 存 取 操 作 总 是 从 第 1 个 记录 开始 ,然后 依次 按 文件 记 录 的 逻辑 顺序 逐 
下 进行 。 即 如 果 要 操作 第 N 个 记录 ,必须 先 对 前 面 N 一 1 个 记录 进行 操作 。 

直接 文件 的 存 取 操作 可 以 按 任 意 的 次 序 进行 , 即 可 以 直接 按 存 取 操 作 指 定 的 记录 号 进 
行 操 作 。 例 如 ,要 从 一 个 直接 文件 中 读 取 第 N 个 记录 , 则 只 须 在 读 语 句 中 指明 第 N 个 记录 
的 记录 号 即 可 ,而 无 须 对 前 面 的 N 一 1 个 记录 做 任何 操作 处理 ， 

3. 文件 的 结构 

文件 的 结构 是 指 组 成 文件 的 记录 格式 。 无 论 是 顺序 存 取 文件 还 是 直接 存 取 文件 ,数据 
在 记录 中 的 存放 格式 有 三 种 : 有 格式 存放 、 无 格式 存放 和 二 进 制 形式 存放 。 第 一 种 是 以 字 
符 形式 (或 称 ASCII 形式 ) 存 放 的 ,后 两 种 均 以 二 进 制 代码 存放 。 

文件 的 存 取 方式 和 文件 的 记录 格式 决定 了 文件 的 类 型 ,这样 ,FORTRAN 的 外 部 文件 
可 以 分 为 以 下 六 种 类 型 . 

。 有 格式 顺序 文件 

。 有 格式 直接 文件 

。 无 格式 顺序 文件 

。 无 格式 直接 文件 

。 二 进 制 顺序 文件 

。 二 进 制 直接 文件 

(1) 有 格式 文件 

有 格式 顺序 文件 是 按照 文件 记录 顺序 将 数据 存储 在 文件 中 的 有 格式 记录 集合 。 当 要 存 
取 或 读 写 有 格式 顺序 文件 中 的 数据 时 ,总 是 从 第 1 个 记录 开始 ,然后 依次 按 文 件 记录 顺 厅 逐 
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个 往 下 进行 。 有 格式 顺序 文件 中 的 记录 长 度 可 以 各 不 相同 ,记录 与 记录 间 用 回 车 符 和 换行 

有 格式 直接 文件 是 可 以 按照 文件 记录 的 任意 顺序 将 数据 存储 在 文件 中 的 有 格式 记录 集 
合 。 要 存 取 或 读 写 有 格式 直接 文件 中 的 数据 时 可 以 按 任意 顺序 进行 。 有 格式 直接 文件 中 的 
记录 长 度 是 相同 的 ,记录 与 记录 间 用 回 车 符 和 换行 符 分 隔 。 在 有 格式 直接 文件 中 , 当 一 个 记 
录 被 写 人 ,就 不 能 删除 而 只 能 重 与 。 

当 一 个 文件 是 有 格式 文件 时 ,可 以 用 文本 编辑 硕 打 开 并 直接 查看 文件 记录 中 的 内 容 。 

(2) 无 格式 文件 

无 格式 顺序 文件 是 按照 文件 记录 顺序 将 数据 存储 在 文件 中 的 无 格式 记录 集合 。 当 要 存 
取 或 读 写 无 格式 顺序 文件 中 的 数据 时 ,总 是 按 文件 中 的 记录 顺序 依次 往 下 进行 。 无 格式 顺 
序 文件 的 记录 长 度 可 以 是 不 相同 的 ,但 最 多 不 超过 128 个 字 节 。 数 据 是 以 一 个 不 超过 128 
个 字 节 的 块 ( 也 称 物 理 块 ) 方 式 进 行 存 储 的 。 在 进行 存 取 操 作 时 ,系统 可 以 按 逻 辑 记 录 长 度 
对 多 个 存储 单元 进行 存 取 。 

无 格式 直接 文件 是 可 以 按照 文件 记录 的 任意 顺序 将 数据 存储 在 文件 中 的 无 格式 记录 集 
合 。 无 格式 直接 文件 的 记录 长 度 是 相同 的 , 当 要 存 取 或 读 写 无 格式 直接 文件 中 的 数据 时 可 
以 按 任 意 顺 序 进 行 。 在 无 格式 直接 文件 中 记录 与 记录 之 间 无 分 陋 符 标志 。 在 进行 谈 写 操作 
时 ,为 保证 每 个 记录 具有 相同 的 长 度 , 系 统 目 动 在 记录 剩余 空间 中 补充 空格 。 

(3) 二 进 制 文 件 

二 进 制 顺序 文件 是 按照 文件 记录 顺序 将 数据 存储 在 文件 中 的 二 进 制 记录 集合 。 当 要 存 
取 或 读 写 二 进 制 顺 序 文 件 中 的 数据 时 ,总 是 按 文件 中 的 记录 顺序 依次 往 下 进行 。 二 进 制 顺 
序 文 件 的 记录 长 度 可 以 是 不 相同 的 ,记录 与 记录 之 间 无 分 隅 符 标 志 。 任 何 存放 在 二 进 制 顺 
序 文 件 中 的 数据 的 格式 和 长 度 与 这 些 数据 在 内 存 中 的 存放 形式 完全 相同 。 因 此 ,二 进 制 顺 
序 文件 是 一 种 结构 简单 、 处 理 方 便 、 运 行 速度 最 快 的 文件 。 

二 进 制 直接 文件 是 按照 文件 记录 的 任意 顺序 将 数据 存储 在 文件 中 的 二 进 制 记 录 集 合 。 
当 要 存 取 或 读 写 二 进 制 直接 文件 中 的 数据 时 ,可 以 按 任意 顺序 进行 。 二 进 制 直 接 文 件 的 记 
录 长 度 是 相同 的 。 在 进行 读 写 操作 时 ,为 保证 每 个 记录 具有 相同 的 长 度 , 系 统 上 自动 在 记录 剩 
余 空间 中 补充 二 进 制 数据 “0”。 

当 一 个 文件 是 无 格式 或 二 进 制 格式 文件 时 ,都 不 能 下 接 用 文本 编辑 兹 查看 记录 的 内 容 。 

4. 文件 的 记录 长 度 

文件 的 记录 长 度 是 指数 据 项 在 记录 中 所 占据 空间 的 大 小 。 文 件 的 记录 长 度 是 有 规定 
的 ,每 条 记录 不 能 超过 记录 长 度 的 允许 值 。 


10.1.4 文件 的 定位 


在 文件 的 存 取 过 程 中 ,由 文件 指针 控制 文件 的 读 写 操作 。 

当 文 件 指针 位 于 第 一 个 记录 前 的 位 置 时 , 称 文件 定位 在 “文件 头 ”。 

当 文件 指针 位 于 茶 一 个 记录 中 时 , 称 该 记录 为 “当前 记录 ”, 此 时 文件 定位 在 茶 一 记录 
位 置 。 

当 文 件 指针 位 于 最 后 一 个 记录 后 的 位 置 时 , 称 文件 定位 在 “文件 尾 ” 或 文件 结束 位 置 。 
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10.2 文件 的 操作 语句 


在 FORTRAN 语言 中 , 跟 文件 有 关 的 操作 命令 非常 丰富 ,但 是 很 多 命令 不 常用 ,学 习 时 
只 要 记 住 沼 用 的 部 分 就 可 以 了 。 

文件 的 操作 请 句 主 要 有 : 文件 的 打开 (open) 语 句 、 文 件 的 关闭 (close) 请 句 、 输 入 (read) 
语句 ,输出 (write) 请 句 、inguire 请 句 、rewind 请 句 、backspace 霹 铝 和 endfile 语句 和 等。 分 别 
介绍 如 下 。 


10.2.1 文件 的 打开 与 天 闭 


不 管 是 读 文 件 还 是 写 文件 , 先 要 建立 或 打开 这 个 文件 。 在 使 用 结束 之 后 应 关闭 该 文件 。 

1. 文件 的 打开 

程序 中 要 对 文件 进行 操作 ,必须 首先 打开 文件 ,这 由 open 请 句 来 完成 。open 语句 用 来 
把 一 个 设备 号 和 一 个 文件 名 连接 起 来 ,一 旦 实现 了 连接 ,程序 中 将 由 该 设备 号 来 代表 open 
语句 中 指定 的 那个 文件 。 一 个 open 语句 只 能 打开 一 个 文件 。 

open 请 句 的 一 般 格式 如 下 : 

open(unit = number, file = 'filename', form = '.. ', status = '… ',access = '… ', recl = length, err = 

lable, iostat = var, blank = '… ', position = '. ',action = action, pad = '. ', delim = '.. ') 

括号 中 各 项 意义 如 下 。 

(1) unit 说 明 项 

unit 一 number 为 设备 号 说 明 。number 必须 是 一 个 正 整 数 , 它 可 以 使 用 变量 或 是 常量 
来 赋值 , 它 与 读 (read) 或 瑟 (write) 语 句 指 定 的 设备 号 相同 ; 该 说 明 符 是 必 不 可 少 的 , 当 该 说 
明 符 是 open 语句 中 的 第 一 项 时 ,“unit 二 ”可 以 省 略 。 

(2) file 说 明 项 

file 一 filename 为 文件 说 明 ,指定 要 打开 的 文件 名 。file 是 文件 标识 符 , 它 是 一 个 字符 串 
表达 式 ,代表 一 个 文件 名 (Windows 下 文件 名 不 区 分 大 小 写 , 且 不 要 使 用 中 文 文件 名 )。 
open 请 句 的 作用 就 是 将 该 文件 连接 到 指定 的 设备 号 上 。 

(3) form 选项 

form 王 “…' 为 记录 格式 说 明 。 字 段 值 只 有 两 个 可 以 设置 formatted' 或 "unformatted'。 含 义 
如 下 : form 二 'formatted ' ,表示 文件 使 用 "文本 文件 ?格式 来 保存 ; form 王 "unformatted ', 表 
示 文 件 使 用 "二 进 制 文件 ?格式 来 保存 。 

form 说 明 项 可 以 省 略 , 省 略 时 默认 为 form 王 'formatted '。 

(4) status 选项 

status 一 "… ' 用 来 说 明 要 打开 一 个 新 文件 或 是 已 经 存在 的 旧 文 件 。 

status 一 "new': 表示 这 个 文件 原本 不 存在 ,是 第 一 次 打开 ,如 果 指 定 的 文件 存在 ,会 出 
现 输入 输出 销 误 。 

status 一 "old': 表示 这 个 文件 原本 已 经 存在 ,如 条 指定 的 文件 不 存在 ,会 出 现 输入 输出 
错误 。 
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status 一 'replace': 文件 奎 已 经 存在 ,会 重新 创建 一 次 ,原来 的 内 容 会 消失 ,文件 奇 不 存 
在 ,会 创建 新 文件 。 

status 一 'scratch': 表示 要 打开 一 个 临时 文件 ,这 个 时 候 可 以 不 需要 指定 文件 名 称 , 也 就 
是 file 这 一 项 要 省 略 , 系 统 会 日 动 取 一 个 文件 名 ,至 于 文件 名 是 什么 不 重要 ,关闭 文件 和 程 
序 中 断 时 会 日 动 删除 。 

status 一 "unknown': 表示 由 系统 来 确定 文件 的 状态 。 如 果 指 定 文件 不 存在 , 则 创建 一 
个 新 文件 。 如 案 存 在 , 则 将 文件 指针 定位 于 ”文件 头 ”。 

status 说 明 项 省 略 时 ,默认 值 为 unknown。 

(5) access 选项 

access 一 … ' 用 来 设置 谈 写 文件 的 方法 。 


access 一 'sequential'; 读 写 文件 的 操作 会 以 “顺序 ”的 方法 来 读 写 , 即 “顺序 读 取 文件 ”。 
access= 'direct'; 读 写 文件 的 操作 可 以 任意 指定 位 置 , 即 “ 直 接 读 取 文 件 ”。 


右 省 略 此 项 , 则 默认 为 sequential 。 

(6) recl 选项 

recl 选项 为 记录 长 度 说 明 。length 是 一 个 正 整 型 量 或 算术 表达 式 , 其 值 表示 文件 的 记 
录 长 度 ,用 字 市 效 表 示 。 

在 顺序 读 取 文件 中 ,recl 字段 值 用 来 设置 一 次 可 以 读 写 多 大 容量 的 数据 。 

在 打开 < 直接 该 取 文 件 ? 时 ,recl 王 length 中 的 length 值 用 来 设置 文件 中 每 一 个 模块 单 
元 的 分 区 长 度 。 

(7) err 选项 

err 一 label 用 来 设置 当 文 件 打开 发 生 错 误 时 ,程序 会 跳跃 到 label 所 指 的 代码 行 处 继续 
执行 程序 。 

(8) iostat 选项 

iostat 王 var 用 来 设置 一 个 整数 值 给 后 面 的 整 型 变量 ,用 来 说 明文 件 打 开 的 状态 。 数 值 
会 有 下 面 三 种 情况 : var 二 0, 表 示 读 取 操 作 发 生 错 误 ; var 二 0, 表 示 读 取 操 作 正 常 ; var 二 0， 
表示 文件 终了 。 

(9) blank 选项 

blank 选项 用 来 设置 文件 输入 数字 时 , 当 所 设置 的 格式 字段 中 有 空格 存在 时 所 代表 的 
意义 。blank 二 null 时 ,代表 空格 的 字段 全 部 忽略 不 计 ; blank 二 zero 时 ,代表 空格 全 部 处 理 
为 零 。 

(10) position 选项 

position 选项 用 来 设置 文件 打开 时 的 读 写 位 置 ，。 

position 一 'asis'; 表示 文件 打开 时 在 已 存在 文件 的 上 一 次 操作 位 置 或 新 文件 的 起 始 位 
置 ,为 娄 认 值 。 

position 一 "rewind': 表示 文件 打开 时 在 已 存在 文件 的 起 始 位 置 。 

position 一 "append': 表示 文件 打开 时 在 已 存在 文件 的 结束 位 置 。 

(11) action 选项 

action 选项 用 来 设置 所 打开 文件 的 读 写 属性 。 

action 一 tead, 文件 为 只 读 方 式 打 开 ; action 二 write, 文 件 为 上 只 写 方 式 打 开 ; action 二 
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readwrite: 文件 为 可 读 写 方式 打开 。 

(12) pad 选项 

pad 选项 为 填充 说 明 ,作用 是 在 对 文件 进行 谈 操 作 时 , 当 出 现 记 录 中 的 数据 少 于 需 谈 取 
的 数据 时 ,是 否 用 空格 填充 未 取得 数据 的 变量 。 该 选项 只 能 指定 以 下 两 种 取 值 : pad 二 'yes'， 
表示 在 格式 化 输入 时 ,最 前 面 的 不 足 字 段 会 上 月 动 以 空格 填 满 ; pad= 'no', 和 表示 在 格式 化 输入 
时 不 足 的 字段 不 会 以 空格 填 满 。 

(13) delim 选项 

delim 选项 为 分 界 符 说 明 。 

delim 王 apostrophe: 表示 输出 的 字符 串 会 在 前 后 加 上 单 引 号 。 

delim 一 quote: 表示 输出 的 字符 串 会 在 前 后 加 上 双 引 号 。 

delim 王 none: 表示 纯粹 输出 字符 串 内 容 。 

以 上 各 选项 在 open 请 名 中 的 位 置 没 有 特别 规定 ,可 在 任意 位 置 出 现 。 对 于 unit 选项 ， 
如 果 取 消 “unit 二 ”, 则 必须 出 现在 首位 。 

注意 : open 语句 可 以 打开 一 个 已 存在 的 文件 ,建立 一 个 新 文件 和 对 文件 的 部 分 属性 进 
行 修改 ,但 不 能 对 文件 进行 存 取 操作 。 对 文件 的 存 取 操作 须 用 读 语 名 (read) 和 写 请 名 
(write) 来 实现 。 

以 下 两 条 open 语句 分 别 打 开 一 个 文件 : 

open(10,file= 'seqntl]. txt', status = 'old', action = 'read') 

open(3, file= 'wang. dat', status = new',access = 'direct', recl = 4) 

第 1 个 语句 将 名 为 seqntl. txt 的 文件 连接 到 序号 为 10 的 设备 上 ,人 它 是 一 个 已 经 存在 
的 只 读 文 件 。 由 于 access 与 form 两 个 说 明 项 缺 省 ,意味 着 打开 的 是 有 格式 顺序 存 取 
第 2 个 语句 将 名 为 wang. dat 的 文件 连接 到 序号 为 3 的 设备 上 , 它 是 一 个 新 文件 。 
access 王 'direct' 指 明 这 是 一 个 耳 接 文件 ,form 说 明 项 缺少 ,意味 看 打开 的 是 有 格式 文件 ,recl 
二 4 说 明 该 新 建文 件 的 记录 长 度 为 4。 

2. 文件 的 关闭 (close) 

文件 打开 并 使 用 结束 后 要 执行 关闭 操作 ,关闭 文件 就 是 断 开设 备 号 与 文件 的 连接 。 关 
闭 文 件 用 close 语句 ,一 个 close 请 名 只 能 关闭 一 个 外 部 文件 。close 语句 的 一 般 格 式 如 下 : 


close(unit = number, err = lable, iostat = var, status = '...') 


close 语句 的 主要 功能 是 关闭 已 打开 的 文件 ,释放 文件 占用 的 内 存 。 其 中 各 说 明 项 意义 
如 下 。 

(1) unit 说 明 项 

使 用 unit 选项 指定 要 关闭 文件 的 设备 号 ,设备 号 的 意义 与 open 语句 中 相同 。 如 果 在 
close 语句 中 第 一 项 指定 设备 号 , 则 “unit= 二 ”可 省 略 ,否则 不 能 省 略 ,必须 指定 一 个 设备 号 。 

下 面 两 个 语句 部 是 合法 的 close 语句 : 


close(1) 


close(unit= 1) 
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(2) err 选项 

该 选项 与 open 语句 中 的 作用 相同 。 

(3) iostat 选项 

该 选项 与 open 请 句 中 的 作用 相同 。 

(4) status 选项 

status 一 … 用 来 说 明 关 财 文件 后 的 状态 。 

status 一 'keep': 表示 关闭 文件 后 ,与 设备 号 连接 的 文件 保留 下 来 不 被 删除 。 
status 王 "delete': 表示 在 关闭 文件 后 ,与 设备 号 连接 的 文件 不 子 保 留 ,被 永久 删除 。 
说 明 : 以 上 各 选项 的 前 后 顺序 没有 特别 规定 ,可 在 close 语句 参数 中 任意 位 置 出 现 。 


10.2.2 文件 的 输入 (read) 语 句 和 输出 (write) 语 名 


文件 打开 以 后 就 可 以 进行 读 写 操作 了 ,也 就 是 文件 的 输入 输出 操作 。read 语句 和 write 
语句 除了 前 面 章节 介绍 的 可 以 用 于 表 控 输入 输出 和 格式 输入 输出 外 ,也 可 以 应 用 于 文件 的 
输入 输出 。 

文件 输入 的 一 般 格 式 如 下 : 


read(unit = number, fmt = format, nml = namelist, rec = record, iostat = stat, err = errlabel, end = 


endlabel, adbance = advance, size = size) 
文件 输出 与 文件 输入 的 格式 完全 相同 ,只 不 过 是 把 read 改 为 write。 即 : 


wirte(unit = number, fmt = format, nml = namelist, rec = record, iostat = stat, err = errlabel, end = 

endlabel,advance = advance, size = size) 

括号 中 各 项 意义 如 下 。 

(1) unit 说 明 项 

unit 一 number 用 来 指定 输入 输出 所 对 应 文件 的 位 置 。number 为 设备 号 说 明 , 它 与 对 
应 的 open 语句 中 指定 的 设备 号 相同 。 

(2) fmt 选项 

fmt 一 format 用 于 指定 输入 输出 格式 。fmt 是 format 语句 标号 ,或 是 一 个 格式 字符 串 。 只 
有 在 对 有 格式 文件 进行 输入 或 读 操 作 时 才 需 要 格式 说 明 ,对 无 格式 文件 是 不 需要 格式 说 明 的 。 

(3) nml 选项 

nml 一 namelist 用 于 指定 读 写 某 个 namelist 的 内 容 。 该 项 直接 用 于 对 文件 的 输入 操作 ， 
不 能 与 格式 说 明和 输入 项 列表 同时 使 用 ,并 且 只 适用 于 顺序 文件 。 

(4) rec 选项 

rec 一 record 仪 用 于 和 直接 读 取 文 件 中 。 当 read 诸 句 从 文件 中 读 取 数据 时 ,将 从 记录 号 为 
rec 的 记录 开始 读 取 。 

(5) iostat 选项 

iostat 一 stat 用 来 说 明 输 入 输出 的 状态 。stat 是 一 个 整 型 变量 ,stat 二 0 表示 读 取 操作 发 
生 错 误 ; stat 二 0 表示 恋 取 操作 正 篆 ; stat=0 表示 文件 正 筑 。 

(6) err 选项 

err 一 errlabel 用 来 指定 在 读 写 过 程 中 发 生 错 误 时 ,会 转移 到 某 个 语句 标号 来 继续 执行 程序 。 
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(7) end 选项 

end 一 endlabel 用 来 指定 读 写 到 文件 末尾 时 ,会 转移 到 某 个 语句 标号 来 继续 执行 程序 。 

(8) advance 选项 

advance 一 advance 为 高 级 输入 使 用 说 明 。 表 示 每 执行 一 次 read 语句 和 write 语句 后 ， 
读 写 位 置 是 否 会 自动 同 下 移动 一 行 。 其 取 什 如下: advance 二 yes, 上 默认 值 ,表示 每 读 写 一 行 
会 回 下 移动 一 行 ; advance 一 no, 表 示 会 暂停 日 动 换行 的 操作 。 

需要 注意 的 是 ,使 用 此 说 明 项 时 ,要 设置 输入 输出 的 格式 。 

(9) size 选项 

size 王 size 用 于 指定 读 操 作 传 输 的 字符 数 。 使 用 此 说 明 项 的 前 提 是 advance 一 no。 


10.2.3 查询 文件 的 状态 (inquire) 语 名 


inquire 语句 用 来 查询 文件 目前 的 属性 ,在 open 语句 打开 文件 前 后 均 可 使 用 

一 般 格式 如 下 ， 

inquire(unit = number, file = filename, iostat = stat, err = label, exist = exist, opened = opened, 

number = number, named = named, access = access, sequential = sequential, direct = direct, form = 

form, formatted = formatted unformatted = unformatted, recl = recl) 

各 说 明 项 意义 如 下 。 

(1) unit 说 明 项 

unit 一 number 为 赋值 所 要 查询 的 文件 代号 。 

(2) file 说 明 项 

file 一 filename 为 赋值 所 要 查询 的 文件 名 称 。 

(3) iostat 选项 

iostat 王 stat 用 于 查询 文件 读 取 情况 ,会 日 动 设置 一 个 整数 值 给 它 后 面 的 变量 。 

stat 二 0 表示 读 取 操作 发 生 错 误 ; stat 二 0 表示 读 取 操作 正常 ; stat 二 0 表示 文件 终了 。 

(4) err 选项 

err 王 label 表示 inquire 发 生 错 误 时 会 转移 到 赋值 的 行 代 码 ,继续 执行 程序 。 

(5) exist 选项 

exist 一 exist 用 于 检查 文件 是 否 存 在 ,会 返回 一 个 布尔 变量 给 后 面 的 逻辑 变量 ,返回 大 
值 表 示 文 件 存 在 ,反之 表示 文件 不 存在 。 

(6) opened 选项 

opened 二 opened 用 于 检查 文件 是 否 已 经 使 用 open 命令 打开 ,会 返回 一 个 布尔 变量 给 
后 面 的 逻辑 变量 ,返回 真 值 表示 文件 已 打开 ,反之 表示 文件 尚未 打开 。 

(7) number 选项 

number 一 number 表示 由 文件 名 来 查询 这 个 文件 所 给 定 的 代码 。 

(8) named 选项 

named 一 named 用 来 查询 文件 是 否 取 了 名 字 , 也 就 是 检查 文件 是 否 为 临时 保存 ,返回 值 
为 逻辑 数 。 

(9) access 选项 

access 一 access 用 来 检查 文件 的 读 取 格式 ,会 返回 一 个 字符 串 。 字 符 串 值 可 以 为 : 
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sequential 表示 文件 使 用 顺序 读 取 格式 ; direct 表示 文件 使 用 直接 该 取 格 式 ; undefined 表 
示 没 有 意义 。 

(10) sequential 选项 

sequential 二 sequential 用 来 查看 文件 是 否 使 用 顺序 格式 ,会 返回 一 个 字符 串 。 字 人 符 串 
值 可 以 为 : yes 表示 文件 是 顺序 读 取 文件 ; no 表示 文件 不 是 顺序 读 取 文件 ; unknown 表示 

(11) direct 选项 

direct 二 direct 用 来 查看 文件 是 否 使 用 百 接 格式 ,会 返回 一 个 字符 串 。 字 符 串 值 可 以 
为 : yes 表示 文件 是 直接 读 取 文件 ; no 表示 文件 不 是 直接 该 取 文 件 : unknown 表示 无 法 
判断 。 

(12) form 选项 

form 王 form 用 来 查看 文件 的 保存 方法 。formatted 表示 打开 的 是 文本 文件 ; 
unformatted 表示 打开 的 是 二 进 制 文件 ; unknown 没有 意义 。 

(13) formatted 选项 

formatted 王 formatted 用 来 查看 文件 是 否 为 文本 文件 ,会 返回 一 个 字符 串 。 字 符 串 值 
可 以 为 : yes 表示 本 文件 是 文本 文件 ; no 表示 本 文件 不 是 文本 文件 ; unknown 表示 无 法 
判断 。 

(14) unformatted 选项 

unformatted 二 unformatted 用 来 查看 文件 是 否 为 二 进 制 文件 ,会 返回 一 个 字符 串 。 字 
条 串 值 可 以 为 : yes 表示 本 文件 是 二 进 制 文件 ; no 表示 本 文件 不 是 二 进 制 文件 :unknown 
表示 无 法 判断 。 

(15) recl 选项 

recl 王 recl 用 来 返回 open 文件 时 recl 栏 的 设置 值 。 

使 用 inquire 命令 时 注意 ,如 傈 查询 一 个 不 在 当前 目录 的 文件 , 则 在 查询 文件 时 必须 给 
出 文件 所 在 的 盘 符 和 路 径 。 


10.2.4 rewind 语句 
rewind 请 句 称 为 反 绕 语句 , 它 的 作用 是 把 文件 的 读 写 位 置 倒 回 文件 开头 。 
一 般 格式 为 : 
rewind(unit = unit, err = err, iostat = iostat) 

括号 内 的 字段 含义 参见 open 请 句 。 

10.2.5 backspace 语句 


backspace 语句 称 为 回 退 语句 , 它 的 作用 是 把 文件 的 读 写 位 置 退 回 一 步 ， 
一 般 格 式 为 ， 
backspace(unit = unit, err = err, iostat = iostat) 


括号 内 的 字段 含义 参见 open 语句 。 
注意 . backspace 语句 只 能 用 于 顺序 存 取 文件 ， 
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10. 2.6 endfile 语 铝 


endfile 语句 的 作用 是 把 目前 文件 的 读 写 位 置 变 成 文件 的 结尾 。 
一 般 格式 为 : 


endfile (unit = unit, err = err, iostat = iostat) 


括号 内 的 字段 含义 参见 open 语句 。 

注意 : 

(1) 执行 endfile 语句 之 后 ,就 不 能 对 文件 进行 读 写 操作 了 ,必须 先 用 rewind 语句 或 
backspace 语句 重新 定位 之 后 ,才能 对 文件 执行 读 写 操作 。 

(2) endfile 语句 只 能 用 于 顺序 存 取 文件 。 


10.3 有 格式 文件 的 存 取 


10.3.1 有 格式 顺序 文件 存 取 


同时 具有 formatted 和 sequential 属性 的 文件 称 为 有 格式 顺 友 存 取 文件 。 

有 格式 顺序 存 取 文 件 是 一 种 可 视 化 的 文件 ,可 用 文本 编辑 硕 随 时 显示 、 训 览 、 修 改 、 创 
建 , 也 可 在 程序 中 通过 open 和 write 请 句 创 建 。 

有 格式 顺序 存 取 文 件 由 夺 干 文本 行 组 成 ,每 个 文本 行 是 一 个 记录 。 每 个 记录 长 度 可 以 
不 同 ,默认 最 大 记录 长 度 为 132 个 字 市 ,可 通过 recl 选项 指定 最 大 记录 长 度 。 

有 格式 顺序 存 取 文 件 的 读 写 操作 与 键盘 、 显示 需 的 谈 写 操作 类 做 , 不 同 的 是 需要 用 
open 语句 打开 文件 ,指定 设备 号 ,在 read 和 write 语句 中 指定 设备 号 ,而 不 是 星 写 “x*”，。 对 
于 有 格式 顺序 存 取 文件 ,open 中 的 recl 选项 可 指定 文件 的 最 大 记录 长 度 , 但 recl 选项 对 输 
人 没有 影响 , 按 实际 记录 长 度 输 入 数据 。recl 选项 对 输出 有 影响 ,如 果 输 出 数据 是 字符 串 ， 
则 超过 最 大 记录 长 度 后 将 换行 输出 (下 一 个 记录 ) ,如 果 输 出 数据 不 是 字符 串 , 则 按 表 控 格式 
域 宽 或 格式 编辑 符 指 定 域 宽 输 出 ,人 允许 超出 最 大 记录 长 度 , 保 证 输出 数据 的 完整 性 。 超 出 最 
大 记录 长 度 后 ,下 一 个 输出 数据 项 换行 输出 。 下 面 给 出 使 用 有 格式 顺序 存 取 文件 的 示例 

【 例 10-1】 顺序 文件 stul. dat 存放 了 10 个 学 生 的 姓名 及 一 门 单 科 成 绩 , 读 出 文件 中 
的 所 有 数据 ,然后 将 成 绩 合 格 ( 三 60) 的 学 生 的 姓名 及 成 绩 存 人 男 一 文件 stu2. dat 中 。 

程序 编写 如 下 : 

PARAMETER(N= 10) 
DIMENSION NAME(N),S(N) 
CHARACTER NAME ¥x 10 
OPEN(1, FILE = 'stul. dat', FORM = 'FORMATTED') 
DOI=1,N 
READ(1,20)NAME(I),S(I) 
ENDDO 


20 FORMAT(A10,F5.1) 
CLOSE(1) 


230 co 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


OPEN(2, FILE = 'stu2. dat', FORM = 'FORMATTED') 
DOI=1,N 


IF (S(I)> = 60) WRITE(2,20) NAME(I),S(I) 
ENDDO 
CLOSE(2) 


在 执行 程序 前 要 按照 源 程序 要 求 的 格式 建立 数据 文件 stul. dat, 如 图 10. 1 所 示 。 


dBz 一 Compag Yisual Fortran 一 [stul. dat] 


国 File Edit View Insert Project Build Tools Window Help 


咏 加 最 |# 苹 馈 


回回 
-le|x 
人 2 人 实 -| 吧 轩 司 | 名 


Workspace "d8z": 1 prc 
-全 | 18_01 files 
Source Files 
. 18_01.190 
“… 国 Header Files 
“… 国 Resource Files 


悦 导 过 导 HHH 和 -一 
SEE] 时 


志 寺 1 
$= J 
球 呈 本 5 


Ln 6. Col12 |RECICOLIO yg 
图 10. 1 


例 10-1 中 的 stul. dat 


可 将 生成 的 数据 文件 stu2. dat 加 入 到 项 目 中 ,直接 在 编辑 环境 中 查看 绪 果 是 否 满足 要 
求 ,如 图 10. 2 所 示 。 


dBz 一 Compagqg Yisual Fortran 


[stmz- dat | 
国 File Edit View Insert Erolect Build Tools Window Help 
前 | 蕊 日生 |% 昌 记 


~|s|x 
7 之 7| 芭 园 宫 | 损 


Workspace "d8z": 1 prc 

-全 |18_01 和 es 
-Source Files 
18_01.190 
Header Files 


“ 国 Resource Files 
: stu1.dat 


一 国 stu2.dat| 


Ln5. Coll2 |REC|coLlo 5 
图 10.2 例 10-1 中 在 编译 环境 下 查看 stu2. dat 


10.3.2 有 格式 直接 文件 存 取 


同时 具有 formatted 和 direct 属性 的 文件 称 为 有 格式 直接 存 取 文件 。 有 格式 直接 存 取 
文件 可 用 文本 编辑 器 显示 ` 浏 览 、 修 改 、 创 建 ,文件 中 不 能 用 回 车 符 和 换行 符 分 隔 记录 ,也 可 
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在 程序 中 通过 open 和 write 霹 句 创建 。 

在 进行 直接 文件 的 输入 输出 时 ,read 语句 和 write 语句 中 多 了 一 个 控制 项 ; rec= rec。 
rec 是 一 个 正 整 数 , 用 来 指定 要 读 写 的 记录 的 序号 。 

有 格式 直接 存 取 文件 由 硅 干 文本 段 组 成 ,每 个 文本 段 是 一 个 记录 。 记 录 没 有 结束 标志 
和 行 的 概念 ,每 个 记录 长 度 相同 ,可 通过 recl 选项 指定 记录 长 度 。 有 格式 直接 存 取 文件 的 
记录 格式 如 图 10. 3 所 示 。 


图 10.3 有 格式 直接 存 取 文 件 的 记录 格式 


有 格式 直接 存 取 文件 需 按 格式 说 明 信 息 输入 输出 数据 ,不 能 按 表 控 格式 输入 输出 数据 ， 
格式 说 明 不 能 是 星 号 “x*”。 输 出 数据 列表 总 长 度 不 能 超过 文件 记录 长 度 ,如 果 超 过 , 则 产生 
输出 错误 。 输 出 数据 列表 总 长 度 可 以 小 于 文件 记录 长 度 , 如 果 小 于 , 则 补足 空格 。 输 入 数据 
列表 总 长 度 不 能 超过 文件 记录 长 度 , 如 果 超 过 , 则 产生 输入 错误 。 输 入 数据 列表 总 长 度 可 以 
小 于 文件 记录 长 度 ,如 果 小 于 , 则 多 余数 据 被 忽略 。 

有 格式 直接 存 取 文件 不 能 按 顺 序 存 取 方 式 打 开 , 不 能 进行 顺序 存 取 ,而 只 能 按 直 接 存 取 
方式 打开 , 按 记录 号 任意 存 取 记 录 。 有 格式 直接 存 取 文件 给 数据 的 输入 输出 带 来 极 大 方便 ， 
在 程序 中 应 尽 可 能 使 用 这 类 文件 。 

【 例 10-2】 将 例 10-1 改 为 直接 文件 方式 进行 存 取 。 

程序 编写 如 下 : 


PARAMETER (N= 10) 

DIMENSION NAME (N),S(N) 

CHARACTER NAME x 10 

OPEN(1,FILE = 'stul. dat', ACCESS = 'DIRECT', FORM = 'FORMATTED', RECL = 11) 
DOI=1,N 

READ(1, 20, REC = I)NAME(I),S(I) 
ENDDO 
20 FORMAT(A10,F5.1) 
CLOSE(1) 


OPEN(2, FILE = 'stu2. dat', ACCESS = 'DIRECT', FORM = 'FORMATTED', RECL = 11) 
DOI=1,N 
IE (S(I)> = 60) WRITE(2, 20, REC = I) NAME(I),S(I) 
ENDDO 
CLOSE(2) 
END 


按照 源 程序 要 求 的 格式 建立 数据 文件 stul. dat, 用 记事 本 打开 ,如 图 10.4 所 示 。 

注意 : 编写 数据 文件 时 ,注意 记录 的 长 度 要 与 open 语句 中 recl 指定 的 长 度 一 致 ,否则 
将 会 产生 错误 。 

打开 按照 题 意 新 生成 的 数据 文件 ,查看 计算 结果 是 否 满足 要 求 。 本 题 中 生成 的 数据 文 
件 stu2. dat 如 图 10.5 所 示 。 
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是 stul -~ 记事 本 


立 件 伍 ) 蝙 辑 眉 ) 格式 @) 查看 (WD) 和夫 助 仙 ) 
了 张 三 68.8 李 四 88.5 干 京 、 38.0 李 琼 思 56.9 刘 明 利 59 .8 村 明明 18.5 赵 思 思 99.6 杞 迪 ，”7.5 六 蓝天 85. 全 长 符 。 34.9 


10.4 例 10-2 中 的 stul. dat 


对 stu2 一 记事 本 回 E34 
文件 灾 1 编辑 里 ) 格式 全 ) 查看 (WY) 和 才 助 00) 


张 三 60.6 李 四 88.5 干 京 。 90.6 起 田 田 99 .6 


10.5 例 10-2 中 的 stu2. dat 


10.4 无 格式 文件 的 存 取 


10.4.1 无 格式 顺序 文件 存 取 


同时 具有 unformatted 和 sequential 属性 的 文件 称 为 无 格式 顺 友 和 存 取 文件 。 无 格式 顺 
序 存 取 文件 不 能 用 文本 编辑 需 创 建 , 只 能 在 程序 中 通过 open 和 write 语句 创建 。 

其 他 都 和 有 格式 顺 厅 文件 存 取 方式 相同 。 

对 于 无 格式 顺序 存 取 文件 ,在 进行 读 写 操作 时 只 需 在 read 或 write 语句 中 指定 与 文件 
连接 的 设备 号 即 可 ,不 能 按 表 控 格 式 或 格式 说 明 控 制 输入 输出 。 

【 例 10-3】 求 10 个 数 之 和 及 它们 的 平均 值 。 

INTEGER: : A(10) = (/5,7,4,8,12,2,10,3,9,11/) 

INTEGER:: SUM = 0,AVE 

CHARACTER STR1 * 14, STR2 * 16 

! 打 开 一 个 数据 文件 ,设置 一 个 无 格式 顺序 存 取 文件 ,将 10 个 数 分 3 个 记录 写 入 文件 

! 数 据 文件 包含 3 个 记录 ,每 个 记录 行 长 度 不 相同 

OPEN(1, FILE = 'INPUT31. TXT', FORM = 'UNFORMATTED', ACCESS = 'SEQUENTIAL ') 


WRITE(1)(A(I) + 20,I=1,5) ! 输 出 5 个 整数 ,逻辑 记录 1 有 20 个 字 节 
WRITE(1) (A(I) + 20,1= 6,7) ! 输 出 2 个 整数 ,逻辑 记录 2 有 8 个 字 贡 
WRITE(1)(A(I) +20,I=8,10) ! 输 出 3 个 整数 ,逻辑 记录 3 有 12 个 字 节 
REWIND 1 ! 文件 反 绕 至 第 一 个 记录 
READ(1)(A(I),I=1,5) ! 输 入 逻辑 记录 1 的 5 个 整数 
READ(1)(A(I),I= 6,7) ! 输 入 逻辑 记录 2 的 2 个 整数 

READ(1) (A(I),I= 8,10) 1! 输入 逻辑 记录 3 的 3 个 整数 

DOI=1,10 

SUM = SUM + A(I) 
ENDDO 
AVE = SUM/10 


! 打 开 一 个 数据 文件 ,设置 一 个 无 格式 顺序 存 取 文 件 , 写 人 两 个 逻辑 记录 

! 数 据 文件 包含 2 个 记录 ,每 个 记录 行 长 度 不 相同 
OPEN(2, FILE = 'INPUT32. TXT', FORM = 'UNFORMATTED', ACCESS = 'SEQUENTIAL ') 
WRITE(2) '10 个 数 之 和 为 : ', SUM ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 18 
WRITE(2) '10 个 数 平 均值 为 : ', AVE ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 20 


10. 


取 文 件 不 能 用 文本 编辑 硕 创 
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WRITE(2) ' 程 序 运 行 正常 结束 .' ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 18 
REWIND 2 
READ(2) STR1, SUM ! 输 入 逻辑 记录 2 的 1 个 长 度 为 14 的 字符 串 和 1 个 整数 
READ(2) STR2, AVE ! 输 入 逻辑 记录 2 的 1 个 长 度 为 16 的 字符 串 和 1 个 整数 


PRINT * ,STR1, SUM 
PRINT * , STR2, AVE 
END 


程序 运行 结果 如 图 10.6 所 示 。 


cE:\1\2\Debug\2. exe”™ 


18 个 数 平 均值 为 ， 


Press any key to continue 


图 10.6 例 10-3 运行 结果 


4.2 无 格式 直接 文件 存 取 

同时 具有 unformatted 和 direct 属性 的 文件 称 为 无 格式 直接 存 取 文 件 。 无 格式 直接 存 
符 , 只 能 在 程序 中 通过 open 和 write 语句 创建 。 

无 格式 直接 存 取 文件 由 若干 慢 辑 记录 组 成 ,每 次 读 写 一 个 逻辑 记录 。 记 录 长 度 相同 , 记 


录 长 度 在 open 请 名 中 通过 recl 选项 设置 ,记录 之 间 无 分 隔 待 和 控制 信息 。 如 条 输出 数据 
时 ,长度 小 于 记录 长 度 , 则 用 null 字符 或 空格 补足 。 


【 例 10-4】 求 10 个 数 之 和 及 它们 的 平均 值 。 
程序 编写 如 下 : 


INTEGER:: SUM = 0,AVE,A(10) = (/5,7,4,8,12,2,10,3,9,11/) 

CHARACTER S1 * 14,S2*16,S3*18 

! 打 开 一 个 数据 文件 ,设置 一 个 无 格式 直接 存 取 文件 ,将 10 个 数 分 2 个 记录 写 人 文件 
! 数 据 文件 生成 2 个 记录 ,每 个 记录 行 长 度 相 同 ,记录 长 度 为 25 

OPEN(1, FILE = 'INPUT41. DAT', FORM = 'UNFORMATTED', ACCESS = 'DIRECT', RECL = 20) 
WRITE(1, REC= 1)(A(I)}+10,I1=1,5) ! 按 格式 说 明 将 头 5 个 数 写 人 第 1 个 记录 
WRITE(1, REC= 2) (A(I) +10,I=6,10) ! 按 格式 说 明 将 后 5 个 数 写 人 第 2 个 记录 


RERD(1, REC= 2)(A(I),I= 6,10) ! 按 格式 说 明 从 第 2 个 记录 中 读 取 后 5 个 数 
READ(1,REC= 1)(A(I),I=1,5) ! 按 格式 说 明 从 第 1 个 记录 中 读 取 头 5 个 数 
DO I=1,10 

SUM = SUM + A(I) 
ENDDO 


ave = sum/10 

! 打 开 一 个 最 大 记录 长 度 为 22 的 无 格式 直接 存 取 文件 

OPEN(2, FILE = 'INPUT42. DAT', FORM = 'UNFORMATTED', ACCESS = 'DIRECT', RECL = 22) 
WRITE(2, REC=1) '10 个 数 之 和 为 : SUM ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 22 
WRITE(2, REC = 2) '10 个 数 平 均值 为 : ', AVE ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 22 
WRITE(2, REC = 3) ' 程 序 运行 正常 结束 .' ! 输 出 一 个 逻辑 记录 ,记录 长 度 为 22 
! 从 外 部 文件 INPUT42. DAT 读 取 数据 ,并 从 显示 器 上 输出 

READ(2, REC = 1) S1,M 

READ(2, REC = 2) S2,N 
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READ(2, REC = 3) S3 
PRINT * ,S1,M 
PRINT * ,S2,N 
PRINT * ,S83 

END 


程序 运行 结果 如 图 10.7 所 示 。 


cn “下 : i 


于 日 小 妆 w 
1 上 二 - 数 主 均 症 % 


往 序 运行 正常 结束 。 


Press any key to continue 


图 10.7 例 10-4 运行 结果 


10.5 ”二进制 文件 的 存 取 


10.5.1 二 进 制 顺序 文件 存 取 


同时 具有 binary 和 sequential 属性 的 文件 称 为 二 进 制 顺 序 存 取 文 件 。 二 进 制 顺序 存 取 


文件 不 能 用 文本 编辑 希 创建 ,只 能 在 程序 中 通过 open 和 write 霹 句 创建 。 


二 进 制 顺序 存 取 文 件 由 连续 的 二 进 制 位 串 组 成 。 每 个 read 和 write 语句 读 取 或 生成 一 


个 二 进 制 子 位 串 ,每 次 读 取 或 写 人 的 二 进 制 子 位 串 长 度 可 以 不 同 , 数 据 完全 按 内 存 存 放 的 机 
内 码 形式 人 存放。 二进制 顺序 存 取 文 件 没有 记录 分 隔 符 和 其 他 控制 信息 ,所 以 这 类 文件 的 存 


储 空 


间 开 销 比 较 小 , 存 取 速 度 比 较 快 。 
【 例 10-5】 


INTEGER :: A(10) = (/5,7,4,8,12,2,10,3,9,11/) 

INTEGER :: SUM= 0,AVE 

CHARACTER STR1 x 14, STR2 * 16, STR3x 18 

! 打 开 一 个 数据 文件 ,设置 一 个 二 进 制 顺序 存 取 文 件 ,将 10 个 数 分 3 次 写 人 文件 
! 数 据 文 件 包含 10 个 整数 ,分 三 个 write 语句 输出 至 文件 

OPEN(1, FILE = 'INPUTS1. TXT', FORM = 'BINARY', ACCESS = 'SEQUENTIAL') 


WRITE(1)(A(I) + 20,I= 1,5) ! 输 出 5 个 整数 (KIND = 4), 占 20 个 字 节 
WRITE(1)(A(I) + 20,I= 6,7) ! 输 出 2 个 整数 (KIND= 4), 占 8 个 学 节 
WRITE(1) (A(I) +20,I=8,10) ! 输 出 3 个 整数 (KIND = 4), 占 12 个 字 节 
REWIND 1 ! 文件 反 绕 至 文件 起 始 位 置 
READ(1)(A(I),I=1,10) 1 连续 输入 10 个 整数 
DOI=1,10 

SUM = SUM + A(I) 
ENDDO 

= SUM/10 


ee 设置 一 个 二 进 制 顺序 存 取 文 件 , 写 入 3 个 字符 串 和 2 个 整数 
OPEN(2, FILE = 'INPUT52. TXT', FORM = 'BINARY', ACCESS = 'SEQUENTIAL') 


WRITE(2) '10 个 数 之 和 为 : ', SUM ! 输 出 一 个 字符 串 和 一 个 整数 ,总 长 度 为 18 
WRITE(2) '10 个 数 平 均值 为 : ', AVE ! 输 出 一 个 字符 串 和 一 个 整数 ,总 长 度 为 20 


WRITE(2) ' 程 序 运行 正常 结束 .' ! 输 出 一 个 字符 串 , 总 长 度 为 18 
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REWIND 2 
READ(2) STR1, SUM, STR2, AVE, STR3 1! 连续 读 取 有 关 数 据 信 息 
PRINT * , STR1, SUM 
PRINT * ,STR2, AVE 
PRINT * , STR3 
END 


程序 运行 结果 如 图 10. 8 所 示 。 


oF:\1\3\Debug\3. ee” 


18 个 数 半 均值 浆 ; 


程序 运行 目 常 结束 。 


Press any key to continue 


图 10.8 例 10-5 运行 结果 


10.5.2 二 进 制 直 接 文件 存 取 


同时 具有 binary 和 direct 属性 的 文件 称 为 二 进 制 直接 存 取 文件 。 二 进 制 直接 存 取 文 
件 不 能 用 文本 编辑 器 创建 ,只 能 在 程序 中 通过 open 和 write 语句 创建 。 

二 进 制 直接 存 取 文件 由 若干 逻辑 记录 组 成 (二 进 制 位 串 ) 。 每 个 read 和 write 语句 读 取 
或 生成 一 个 逻辑 记录 ,每 个 逻辑 记录 的 记录 长 度 相 同 , 效 据 完全 按 内 存 存放 的 机 内 码 形式 存 
放 。 记 录 长 度 在 open 语句 中 通过 recl 选项 设置 ,记录 之 间 没 有 任何 分 隐 符 和 控制 信息 ,可 
随机 存 取 ,所 以 这 类 文件 的 存储 空间 开销 比较 小 , 存 取 速度 比较 快 。 如 果 输 出 数据 时 ,长 度 
小 于 记录 长 度 , 则 用 null 字符 补足 。 

【 例 10-6】 


INTEGER :: A(10) = (/5,7,4,8,12,2,10,3,9,11/) 

INTEGER :: SUM = 0,AVE 

CHARACTER STR1 x* 14, STR2 * 16,STR3 * 18 

! 打 开 一 个 数据 文件 ,设置 一 个 二 进 制 直接 存 取 文件 ,将 10 个 数 分 2 个 记录 写 人 文件 
! 数 据 文件 包含 10 个 整数 ,用 2 个 WRITE 语句 输出 至 文件 

OPEN(1, FILE = 'INPUT61. TXT', FORM = 'BINARY', ACCESS = 'DIRECT', RECL = 20) 


WRITE(1, REC= 1) (A(I) + 20,1=1,5) ! 输 出 头 5 个 整数 (KIND = 4), 一 个 记录 占 20 个 字 节 
WRITE(1,REC= 2) (A(I) + 20,I1= 6,10) ! 输 出 后 5 个 整数 (KIND= 4), 一 个 记录 占 20 个 学 节 
READ{(1,REC= 2)(A(I),I= 6,10) ! 输 入 后 5 个 整数 (KIND = 4), 一 个 记录 占 20 个 字 贡 
READ(1,REC= 1)(A(I),I=1,5) ! 输 入 头 5 个 整数 (KIND = 4), 一 个 记录 占 20 个 字 节 
DOI=1,10 

SUM = SUM + A(I) 
ENDDO 
AVE = SUM/10 


! 打 开 一 个 数据 文件 ,设置 一 个 二 进 制 直 接 存 取 文 件 , 写 人 3 个 字符 串 和 2 个 整数 
OPEN(2, FILE = 'INPUT52. TXT', FORM = 'BINARY', ACCESS = 'DIRECT', RECL = 20) 
WRITE(2, REC = 1) '10 个 数 之 和 为 : ,SUM ! 输 出 一 个 记录 (一 个 字符 串 和 一 个 整数 ) 
WRITE(2, REC = 2) '10 个 数 平均 值 为 : ,ME ! 输 出 一 个 记录 (一 个 字符 串 和 一 个 整数 ) 
WRITE(2, REC = 3) ' 程 序 运 行 正常 结束 .'  ! 输 出 一 个 记录 (一 个 字符 串 ) 
READ(2, REC = 3) STR3 ! 输 入 第 3 个 记录 

READ(2, REC = 2) STR2, AVE ! 输 入 第 2 个 记录 
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READ(2, REC = 1) STR1, SUM ! 输 入 第 1 个 记录 
PRINT * ,STR1, SUM 

PRINT * ,STR2, AVE 

PRINT x ,STR3 

END 


程序 运行 结果 如 图 10. 9 所 示 ，。 


cv “E:\1\d\Debug\d. exe”™ 


16 个 梁平 均 值 为; 


UL [+ 一 洲 一 十 
社 序 运行 正音 结束 。 
Press any kevy to continue 


图 10.9 例 10-6 运行 结果 
习 匮 10 


1. 下 面 关 于 文件 的 叙述 ,不 正确 的 是 ( )s 
A. 直接 文件 的 所 有 记录 的 长 度 是 相同 的 
B. 对 于 顺序 文件 来 说 , 缺 省 格式 说 明 项 , 则 隐 含 为 按 格式 存 或 取 
C. 从 一 个 存在 的 磁盘 文件 中 读 取 数据 , 则 status 二 status 选项 可 省 上 略 
D. 在 打开 顺序 文件 的 open 语句 中 ,定义 记录 长 度 的 选项 不 能 省 略 
2. 下 列 关 于 直接 文件 操作 的 说 法 中 ,不 正确 的 是 ( ) 。 
A. 直接 文件 不 能 按 记 录 的 顺序 读 取 
B. 直接 文件 的 所 有 记录 的 长 度 都 相等 
C. 直接 文件 不 能 按 表 控 格式 存 取 
D. 顺序 写 人 的 文件 都 不 能 直接 谈 取 
3. 阅读 下 列 FORTRAN 程序 : 


DIMENSION A(3) 

OPEN(6, FILE = 'XY. DAT', STATUS = 'NEW', ACCESS = 'DIRECT '， 
FORM = 'FORMATTED', RECL = 30) 
DOI=1,6 

S= 4.0x*I 

WRITE(6, 100, REC = I)S 

100 FORMAT(E15.6) 

END DO 

READ(6, 100, REC = 3)A 

S= 0.0 

DOI=1,3 

S=S+R(I) 

END DO 

WRITE( ¥* , * )S 

CLOSE(6) 

END 
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写 出 上 述 程序 的 执行 结果 。 

4. 为 什么 要 在 程序 中 使 用 数据 文件 保存 数据 ? 使 用 数据 文件 有 何 优点 ? 

5. 什么 是 记录 ?什么 是 文件 ? 文件 的 最 小 存 取 单 位 是 什么 ? 对 文件 进行 操作 时 ,必须 
指出 文件 的 哪些 特性 ? 

6. 已 知 一 个 有 格式 顺序 存 取 文件 (记录 内 容 日 定 ), 从 中 删除 第 个 记录 。 编 写 程序 
实现 。 

7. 已 知 一 个 有 格式 顺序 存 取 文件 (记录 内 容 目 定 ) ,在 第 nn 个 记录 之 后 插入 一 个 记录 。 
编写 程序 实现 。 

8. 已 知 一 个 有 格式 顺序 存 取 文件 保存 着 某 班 学 生 的 考试 信息 ,每 个 学 生 的 考试 信息 
有 : 学 号 (字符 串 ,7 位 )、 姓 名 (字符 串 ,8 位 ) 性别 (字符 串 ,2 位 )、 课 程 ( 字 符 串 ,10 位 )、 成 
绩 ( 整 数 ,3 位 )。 从 有 格式 顺序 存 取 文件 中 读 取 学 生 的 考试 信息 , 存 人 一 个 二 进 制 直接 存 取 
文件 中 ,文件 中 第 一 个 记录 的 成 绩 项 保存 学 生 人 数 信 息 ,其 余 项 填充 星 号 “x ”。 然 后 从 二 进 
制 直 接 存 取 文 件 中 读 取 记录 信息 ,在 屏幕 上 显示 学 生 考 试 信 息 。 编 写 程 序 实现 。 

9. 谈 入 即位 学 生 的 姓名 和 某 门 课 的 成 绩 , 存 人 顺序 文件 ,然后 对 这 个 顺序 文件 进行 以 
下 各 项 操作 。 

(1) 按 学 生成 绩 排序 。 

(2) 插入 nn 个 记录 ,使 插入 后 的 文件 内 容 仍 按 序 排列 。 

(3) 删除 ns 个 记录 . 使 删除 后 的 文件 内 容 仍 按 序 排列 。 

(4) 修改 ns 个 记录 ,使 修改 后 的 文件 内 容 仍 按 序 排列 。 

(5) 把 文件 中 超过 平均 成 绩 的 学 生 姓名 与 成 绩 打 印 出 来 。 

10. 建立 一 个 有 格式 的 直接 数据 文件 grade. dat。 文 件 中 存放 全 班 50 个 学 生 期 末 考 试 
成 绩 的 有 关 信 息 ,包括 学 生 的 学 号 .姓名 、5 门 功课 的 成 绩 、5 门 功课 的 平均 成 绩 和 总 分 ; 再 
读 取 grade. dat 中 学 生 的 学 号 、 姓 名 和 总 分 ,建立 一 个 按 学 生 总 分 从 高 分 到 低 分 排序 的 有 格 
式 顺 厅 文 件 paixu. dat。 

11. 首先 建立 一 个 文本 文件 ,将 某 学 年 某 班 所 有 学 生 各 门 课程 的 成 绩 存 放 其 中 ,然后 根 
据 现 有 公式 ,运用 文件 操作 计算 所 有 学 生 的 综合 考评 成 绩 、 学 习 平 均 成 绩 、 学 习 排 名 综合 考 
评 排 名 、 奖 学 金 的 类 型 ,并 将 学 号 、. 姓名、 德育 .智育 .体育 综合 考评 .学 习 平 均 成 绩 、 学 习 排 
名 、 综 合 考评 排名 、 奖 学 金 类 型 保存 到 有 格式 直接 文件 中 。 

相关 公式 : 

(1) 综合 考评 采用 百分制 ,用 下 式 计 算 : 

U=DXxX25%+ZXx65%++ TxX10%+J 
式 中 : U 为 学 年 考评 成 绩 ; D 为 德育 考评 成 绩 ; 2 为 智育 考评 成 绩 ; TT 为 体育 考评 成 绩 ; J 
为 奖励 分 。 
(2) 智育 考试 成 绩 为 必修 课程 成 绩 ( 百 分 制 ) 的 加 权 平 均 数 ,用 下 式 计 算 : 
7 万 iT By We 
11 + fs TT fs "ff 
式 中 : x, 为 该 门 课程 考试 考查 成 绩 ; f 为 该 门 课程 学 分 数 ; n 为 科目 数 。 

12. 建立 通讯 录 , 要 求 存 放 姓 名 电话 号 码 、e-mail, 住 址 ,然后 对 通 迅 录 进 行 查找 、 添 加、 

修改 及 删除 。 


瓜 生 数据 类 型 与 结构 体 


教学 目标 : 
。 等 握 结 构 体 的 定义 方法 ; 
。 等 握 结 构 体 成 员 的 引用 方法 ; 


。 守 会 给 结构 体 变 量 赋值 ; 

。 学 会 给 结构 体 数 组 赋 初 值 ; 

。 掌握 结构 体 数 组 的 应 用 
0 问题 中 的 应 用 。 


11.1 要 二 


迄今 为 止 ,我们 已 经 学 习 了 六 种 基本 数据 类 型 的 数据 ( 整 型 . 实 型 、 双 精度 型 . 复 型 .字符 
型 和 逻辑 型 ) ,也 学 习 了 一 种 构造 数据 类 型 的 数据 一 一 数组 (数组 中 的 各 元 素 具 有 完全 相同 
的 数据 类 型 )。 这 些 数据 类 型 都 是 FORTRAN 系统 预先 定义 好 并 能 被 用 户 直 接 拿 来 使 用 的 
eel /Go iin tan lil lenin 
比如 ,假设 学 生 的 信息 包括 学 号 、 姓 名 、 性 别 、 出 生年 月 日 、 专 业 、 考 试 成 绩 、 总 评 成 绩 、 专 
业 排名 和 家 庭 地 址 ,现在 要 按照 总 评 成 绩 在 专业 内 进 莫 行 名 次 的 升序 排序 ,怎样 编程 解决 
该 问题 ? 
采用 不 同类 型 的 简单 变量 存储 学 生 的 信息 是 不 可 取 的 。 因 为 一 个 学 生 的 信息 项 有 9 
项 ,假如 有 100 个 学 生 ,就 得 面 对 900 个 简单 变量 ,而 且 存 放 专 业 信息 的 变量 和 存放 总 成 绩 
信息 的 变量 没有 关联 性 ,这 都 会 给 编程 带 来 巨大 的 困难 。 既 然 简 单 变 量 不 行 , 那 就 考虑 数 
组 。 由 于 数组 是 相同 类 型 数据 的 集合 ,根据 上 面 所 列 学 生 信息 的 数据 类 型 ,可 使 用 3 个 二 维 
数组 分 别 存 放 所 有 学 生 的 信息 项 ,其 中 二 维 字 符 数 组 存放 所 有 学 生 的 姓名 、 性别 .专业 和 家 
庭 地 址 , 整 型 二 维 数 组 存放 所 用 学 生 的 学 号 .出 生日 期 和 名 次 ,二 维 实 型 数组 存放 所 有 学 生 
的 各 门 功课 成 绩 和 总 成 绩 , 约 定 每 个 数组 的 第 N 行 存储 第 N 个 学 生 的 相应 信息 项 。 这 看 起 
来 能 解决 一 部 分 问题 ,如 总 成 绩 计 算 和 名 次 计算 ,但 还 有 一 个 排序 问题 。 排 序 会 使 得 存放 总 
成 绩 或 名 次 数组 的 数组 元 素 发 生 位 置 的 改变 ,但 这 种 改变 却 不 会 传递 给 其 他 数组 ,造成 学 生 
间 信息 的 错位 。 
石 想 便 利 地 解决 上 述 问题 ,就 需要 引入 一 种 新 的 构造 数据 类 型 ,这 种 数据 类 型 可 将 不 同 
类 型 的 数据 集合 在 一 起 以 整体 出 现 , 这 样 这 种 类 型 的 一 个 变量 就 可 以 存储 上 述 一 个 学 生 的 
所 有 信息 项 ,这 种 数据 类 型 的 一 个 一 维 数组 就 可 以 存放 全 部 学 生 的 所 有 信息 项 ,其 中 一 个 数 


mm 
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组 元 素 存 放 的 就 是 一 个 学 生 的 全 部 信息 项 。 当 按照 学 生 总 成 绩 排 序 ,数组 元 素 的 位 置 发 生 
变化 时 ,与 之 对 应 的 学 生 的 所 有 信息 项 会 整体 发 生变 化 ,就 不 会 引起 学 生 信 息 项 的 错位 了 ， 
这 无 疑 会 给 编写 程序 市 来 极 大 的 方便 。 

另外 ,实际 问题 种 类 繁多 ,涉及 的 问题 对 象 各 不 相同 ,描述 其 所 需要 的 数据 项 不 同 , 即 便 
摘 述 的 是 同一 对 象 ,由 于 侧重 的 角度 不 同 , 构 成 描述 对 象 的 数据 项 也 会 不 同 ,这 就 要 求 这 种 
数据 类 型 本 身 是 动态 的 , 即 用 户 根据 处 理 问 题 的 需求 先 自 主 定义 针对 此 问题 的 数据 类 型 , 青 
定义 这 种 数据 类 型 的 变量 或 数组 。 

针对 上 述 编程 需求 ,从 FORTRAN90 开始 ,FORTRAN 程序 设计 语言 引入 了 体现 现代 
程序 设计 语言 特色 的 派生 数据 类 型 和 结构 体 概念 。 派 生 数 据 类 型 简称 派生 类 ,是 编程 者 根 
据 具 体 问 题 的 数据 特征 目 主 定义 的 ,由 不 同类 型 数据 组 成 的 一 种 数据 类 型 , 它 是 复 林 数据 的 
一 种 抽象 和 形式 化 描述 ,在 本 质 上 和 系统 提供 的 基本 数据 类 型 (INTEGER、REAL 等 ) 相 
同 ,系统 不 会 为 其 分 配 存 储 空 间 。 结 构 体 是 存储 器 内 按照 派生 类 描述 的 内 容 分 配 的 具体 存 
储 空 间 , 是 派生 类 数据 的 具体 体现 ,在 本 质 上 和 数组 相同 ,只 不 过 数组 存放 的 是 相同 类 型 的 
数据 ,而 结构 体 存放 的 是 不 同类 型 的 数据 。 派 生 类 和 结构 体 有 着 紧密 的 联系 ,它们 是 数据 所 
具有 的 抽象 和 具体 两 个 不 同属 性 。 

有 了 派生 类 和 结构 体 的 概念 ,针对 上 面 学 生 信息 的 处 理 , 用 户 就 可 以 月 主 定义 如 下 的 派 
生 类 型 STUDENT: 


TYPE STUDENT ! 开始 定义 一 个 名 为 STUDENT 的 派生 类 
INTEGER NUMBER ! 说 明 其 第 1 个 成 员 NUMBER 是 整 型 变量 
CHARACTER * 10 NAME, ! 说 明 其 第 2 个 成 员 NAME 是 字符 型 变量 
LOGICAL SEX ! 说 明 其 第 3 个 成 员 SEX 是 逻辑 型 变量 
INTEGER BIRTH ! 说 明 其 第 4 个 成 员 BIRTH 是 整 型 变量 
CHARACTER x 10 MAJOR ! 说 明 其 第 5 个 成 员 MAJOR 是 字符 型 变量 
REAL SCORE(6) ! 说 明 其 第 6 个 成 员 SCORE 是 一 维 实 型 数组 
INTEGER ORDER ! 说 明 其 第 7 个 成 员 ORDER 是 整 型 变量 
CHARACTER x* 30 ADDRESS ! 说 明 其 第 8 个 成 员 ADDRESS 是 字符 变量 
END TYPE ! 结束 派生 类 STUDENT 的 定义 


派生 类 型 STUDENT 定义 完毕 后 , 若 要 处 理 单个 学 生 的 信息 ,可 定义 一 个 STUDENT 
类 型 的 结构 体 STU1 ,形式 如 下 : 


TYPE( STUDENT) STU1 


派生 数据 类 型 数组 有 别 于 传统 意义 上 的 数组 ,因为 派生 数据 类 型 数组 的 每 个 数组 元 么 
就 是 一 个 结构 体 ,而 结构 体 在 本 质 上 与 数组 相同 , 均 占 据 连续 的 一 片 存储 单元 (数组 中 每 个 
数组 元 系 占 据 的 存储 单元 大 小 一 样 ,结构 体 因 成 员 类 型 不 同 ,每 个 成 员 占 据 的 存储 单元 大 小 
一 般 不 同 )。 从 类 比 角度 ,又 可 以 将 结构 体 数 据 类 型 分 为 结构 体 变量 和 结构 体 数组 ,上 例 中 
的 结构 体 STU1 可 以 看 成 是 结构 体 变 量 。 为 了 便于 读者 理解 ,可 以 把 结构 体 看 成 是 一 个 表 
格 ,表格 的 关键 字段 是 派生 类 型 定义 中 用 类 型 说 明 语 句 定 义 的 每 一 个 成 员 分 量 , 每 一 行 相当 
于 一 个 记录 (类 似 于 Excel 数据 清单 中 的 记录 ), 对 应 一 个 该 派生 类 的 结构 体 变量 或 该 派生 
类 结构 体 数 组 中 的 一 个 数组 元 对 。 上 例 中 的 派生 类 和 结构 体 变 量 的 关系 可 表示 成 下 面 的 表 
格 形式 : 
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注 : 表 中 的 1、2、… ,6 分 别 代表 score(1) .score(2)、… .score(6) 
如 果 是 结构 体 数组 , 则 在 上 表 的 基础 上 增加 奎 干 行 。 


右 处 理 30 个 学 生 的 信息 ,可 定义 一 个 大 小 为 30 的 一 维 STUDENT 派生 类 型 结构 体 数 
组 STU; 若 处 理 两 个 班 、 每 班 36 人 的 学 生 信息 ,可 定义 一 个 2X36 的 二 维 STUDENT 派生 
类 型 的 结构 体 数组 CLASS, 具 体形 式 如 下 : 

TYPE( STUDENT) STU(30) 

TYPE( STUDENT) CLASS(2,36) 


派生 类 型 和 结构 体 概念 的 引入 极 大 增强 了 FORTRAN 程序 设计 语言 描述 和 处 理 数据 


的 能 力 ,使 得 FORTRAN 程序 设计 声言 的 应 用 范围 从 科学 计算 领域 扩展 到 数据 处 理 领 域 。 
本 草 将 详细 介绍 派生 数据 类 型 ,结构 体 和 结构 体 数组 的 定义 及 其 应 用 。 


11.2 派生 类 型 定义 


派生 类 型 是 目 行 定义 的 由 不 同类 型 数据 组 成 的 一 种 数据 类 型 , 它 能 把 相关 的 一 些 数据 
成 分 汇聚 在 一 起 进行 统一 处 理 。 


定义 派生 类 型 时 必须 使 用 TYPE 块 。TYPE 块 应 写 在 程序 的 说 明 部 分 中 ,通常 写 在 说 
明 的 前 部 。 派 生 类 型 定义 的 一 般 格 式 为 : 


TYPE 派生 类 型 名 称 
成 员 1 类 型 说 明 
成 员 2 类 型 说 明 


明 结构 体 成 员 
成 员 n 类 型 说 
END TYPE [派生 类 型 名 称 ] 


说 明 : 


(1) 派生 类 型 定义 由 TYPE 语句 .结构 体 成 员 和 ENDTYPE 语句 三 部 分 组 成 。 
(2) TYPE 请 句 是 定义 派生 类 型 的 开始 语句 ,并 指出 派生 类 型 的 名 称 。 在 一 个 程序 单 
元 中 ,派生 类 型 的 名 称 必 须 唯一 ,不 能 和 其 他 标识 符 同 名 ,可 用 任意 标识 符 来 命名 。 
(3) 派生 类 型 结构 体 成 员 中 的 成 员 类 型 说 明 请 句 可 以 是 变量 、 数 组 ,结构 体 变 量 、 结 构 
体 数 组 等 的 定义 语句 。 绪 构 体 成 员 是 派生 类 型 定义 的 主体 。 
(4) ENDTYPE 语句 是 派生 类 型 定义 结束 的 标志 ,其 后 的 派生 类 型 名 称 可 省 略 。 
(5) 派生 类 型 定义 中 不 允许 包含 其 他 派生 类 型 的 定义 , 即 多 个 派生 类 型 定义 不 能 散 套 ， 
只 能 并 列 。 


(6) 派生 类 型 定义 的 位 置 应 放 在 有 所 有 可 执行 语句 之 前 。 
下 面 通过 两 个 具体 例子 来 说 明 派 生 类 型 的 定义 。 


自 先 , 定 义 一 个 拉 述 学 生出 生年 月 日 数据 的 派生 类 型 。 可 定义 如 下 : 


第 11 章 ”派生 数据 类 型 与 结构 体 < 


TYPE BIRTH 
INTEGER YEAR, MONTH, DAY 
END TYPE 
该 派生 类 型 名 称 为 BIRTH ,结构 体 成 员 包 含 一 个 成 员 定 义 语句 ,定义 的 出 生年 .月 日 
均 为 整 型 数据 。 
上 例 中 如 果 给 该 名 学 生 再 增加 学 号 、. 姓名、 性 别 .5 门 课程 成 绩 等 信息 ,那么 数据 类 型 就 
比较 复杂 ,可 定义 如 下 派生 类 型 来 处 理 这 些 不 同类 型 的 数据 ， 
TYPE STUDENT 
INTEGER NUMBER 
CHARACTER x¥ 15 NAME 
LOGICAL SEX 
REAL SCORE(S) 
TYPE(BIRTH) DATE 
END TYPE 
该 派生 类 型 包含 5 个 成 员 , 分 别 是 ; 一 个 整 型 变量 NUMBER ,一 个 长 度 为 15 的 字符 变 
量 NAME ,一 个 逻辑 变量 SEX ,一 个 存放 5 门 课程 成 绩 的 实 型 数组 SCORE ,以 及 一 个 结构 
体 变 量 DATE。 结 构 体 将 在 11. 3 市 中 讲述 。 


11.3 结构 体 的 定义 与 引用 


11.3.1 结构 体 定 义 


派生 类 型 和 结构 体 有 着 密 切 的 联系 。 派 生 数 据 类 型 是 复杂 数据 的 一 种 抽象 和 形式 化 描 
述 , 在 定义 时 并 未 对 其 所 包含 的 变量 进行 存储 空间 的 分 配 , 不 能 对 派生 类 型 名 进行 赋值 、5| 
用 和 人 处理。 结构 体 是 派生 类 型 数据 的 具体 体现 ,在 定义 结构 体 时 在 内 存 中 按照 派生 数据 类 
型 描述 的 内 容 分 配 具 体 的 存储 区 域 。 只 有 定义 了 派生 类 型 结构 体 或 结构 体 数 组 ,才能 对 结 
构 体 或 结构 体 数 组 及 成 员 进 行 赋值 .引用 和 处 理 。 派 生 类 型 和 结构 体 是 数据 所 具有 的 抽象 
和 具体 两 个 不 同属 性 。 

结构 体 定义 的 一 般 格式 如 下 : 


TYPE( 派 生 类 型 名 ):: 结 构 体 列表 


说 明 : 

(1) TYPE 后 括号 内 的 派生 类 型 名 必须 给 出 。 结 构 体 列表 由 一 个 或 多 个 结构 体 组 成 ， 
厂 有 多 个 结构 体 , 它 们 之 间 用 逗号 阳 开 。 绪 构 体 命名 规则 遵循 标识 从 规则 ,但 不 能 与 其 他 已 
命名 的 对 象 同和 名。 

例如 ,11. 2 节 中 定义 BIRTH 派生 类 型 后 ,就 可 以 用 它 来 说 明 结 构 体 。 例 如 : 


TYPE (BIRTH):: DATE1,DATE2 


该 语句 定义 了 两 个 结构 体 DATE1 和 DATE2 ,二 者 都 包含 派生 类 型 BIRTH 的 所 有 成 
员 YEAR、MONTH 和 DAY 这 3 项 内 容 。 
(2) 结构 体 既 可 以 在 程序 中 定义 ,也 可 以 和 其 他 内 部 数据 类 型 一 样 放 在 另 一 个 派生 类 


242 。 FoRTRAN 语言 程序 设计 一 一 FORTRAN95 
型 的 定义 中 定义 , 即 骨 套 定义 。 
例如 ,11. 2 节 中 定义 派生 类 型 STUDENT 时 ,其 结构 体 成 员 中 就 包含 一 个 结构 体 说 明 
语句 “TYPE(BIRTH) DATE”, 该 语句 对 派生 类 型 BIRTH 说 明了 一 个 结构 体 DATE。 
如 果 用 派生 类 型 STUDENT 定义 其 结构 体 . 


TYPE (STUDENT) STU 


则 结构 体 STU 除了 包含 NUMBER、NAME.SEX 三 个 变量 和 一 个 数组 SCORE 外 ,还 包 合 
-个 结构 体 DATE。 因 此 ,一 个 结构 体 可 以 包含 男 一 个 结构 体 。 
11.3.2 结构 体 成 员 引 用 
结构 体 是 由 结构 体 成 员 组 成 的 一 种 复合 数据 。 使 用 结构 体 的 主要 目的 就 是 在 结构 体 成 
员 中 保存 数据 ,或 对 结构 体 成 员 数 据 进 行 运算 ,因此 使 用 结构 体 主要 就 是 使 用 其 成 员 。 
使 用 结构 体 成 员 时 , 须 对 结构 体 成 员 进 行 引 用 。 有 具体 引用 方式 有 如 下 两 种 : 


结构 体 名 # 成 员 名 

结构 体 名 .成 员 名 

说 明 . 

(1) 两 种 引用 方式 可 混合 使 用 ,但 为 了 清晰 起 见 ,在 同一 个 程序 中 最 好 使 用 同一 种 引 
用 符 。 

例如 ,对 上 面 定 义 的 DATE1 .DATE2 两 个 结构 体 ,其 成 员 的 引用 如 下 : 


DRTE1 % YEAR, DATE1 % MONTH, DATE1 % DAY; 
DATE2. YEAR, DATE2. MONTH, DATE2. DAY 


(2) 在 含 嵌 套 定义 的 结构 体 中 ,成 员 引 用 应 当 敬 套 使 用 引用 符 “% ?或 *. ”。 
例如 ,对 上 面 说 明 的 结构 体 STU 中 成 员 YEAR 的 引用 可 表示 为 : 


STU % DATE % YEAR 


(3) 使 用 “. "作为 引用 符 ,成 员 名 不 能 使 用 逻 和 辑 运 算 符 和 关系 运算 符 。 


11.4 结构 体 初 始 化 


同 普通 变量 一 样 ,在 程序 中 第 篆 需 要 对 绪 构 体 进 行 初 始 化 ,给 结构 体 成 员 赋 初 值 ,以 便 
对 其 进行 处 理 运 算 。 


11.4.1 用 赋值 语句 给 结构 体 成 员 赋 值 

(1) 用 赋值 语句 给 结构 体 成 员 赋 值 的 基本 要 求 , 与 对 普通 变量 使 用 赋值 语句 的 要 求 
相同 。 

例如 ,对 11. 3 节 中 定义 的 结构 体 DATE1 和 STU, 可 用 下 列 赋值 语句 给 其 各 成 员 赋 值 ， 


DRATIEL % YEAR = 1988 
DATE1 先 MONIH = 6 
DATE]l $% DAY= 1 
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STU % NUMBER = 200703501 
STU 名 NAME = ' 李 有 盼 盼 ， 

STU % SEX = .TRUE， 

STU % SCORE = (/80,78,89,90,85/) 


(2) 对 结构 体 赋 值 与 对 结构 体 成 员 赋 值 不 同 , 要 用 到 结构 体 构造 图 数 。 

结构 体 构 造 了 两 数 的 一 般 格 式 为 : 

派生 类 型 名 (成 员 初 值 表 ) 

例如 ,对 结构 体 DATE1 可 赋值 如 下 : 

DATE1 = BIRTH(1988,6,1) 
该 赋值 语句 给 结构 体 DATEI 的 三 个 成 员 一 次 性 赋值 ,其 作用 相当 于 给 结构 体 每 个 成 员 分 
别 研 值 。 

又 如 ,对 结构 体 STU 中 包含 的 结构 体 成 员 DATE 可 赋值 如 下 : 

STU 和 DRATE = BIRTH(1987 9 ,10) 

这 里 DATE 虽 是 结构 体 STU 的 成 员 ,但 它 本 身 仍然 是 一 个 结构 体 , 因 而 也 需要 用 到 结 
构 体 构造 函数 。 于 是 ,对 结构 体 STU 可 赋值 如 下 : 

STU = STUDENT(200703501，' 李 盼 有 盼 ， .TRUE. ,& 

&(/80,78,89,90,85/),BIRTH(1987,9,10)) 

需要 注意 的 是 ,在 使 用 结构 体 构 造 函 数 时 ,应 使 成 员 初 值 表 中 数据 的 类 型 与 顺序 和 结构 
体 各 成 员 的 类 型 与 顺序 保持 一 致 ,并 且 个 数 相 同 。 各 数据 之 间 用 逗号 隔 开 。 

(3) 可 以 将 一 个 结构 体 的 值 直 接 赋 值 给 另外 一 个 结构 体 , 其 作用 等 价 于 对 对 应 结构 体 

例如 ,可 将 结构 体 DATE1 的 值 研 给 DATE2 ,等 价 于 将 DATE1 中 各 成 员 的 值 赋 给 
DATE2 中 对 应 的 成 员 。 赋 值 语 名 如下: 


DATE2 = DATE]1 


11.4.2 定义 的 同时 给 结构 体 成 员 赋 值 

在 说 明 结 构 体 的 同时 对 结构 体 赋值 ,需要 使 用 结构 体 构 造 卫 数 。 其 一 般 格 式 为 : 

TYPE( 派 生 类 型 名 ):: 结 构 体 名 = 派生 类 型 名 (成 员 初 值 表 ) 

其 中 ,赋值 符号 “= 二” 后 面部 分 即 为 结构 体 构造 滑 数 ,构造 函数 中 的 派生 类 型 名 应 与 
TYPE 后 圆 括号 内 的 派生 类 型 名 保持 一 至。 此 外 , 同 插 号 后 的 双 冒 号 “:: ”必须 具有 。 

例如 ,对 于 11. 2 节 中 的 派生 类 型 BIRTH 和 STUDENT ,可 在 说 明 其 结构 体 的 同时 对 
正 说 明 的 结构 体 赋 值 ,分 别 如 下 : 

TYPE( BIRTH) :: DATE = BIRTH(1987,9,10) 


TYPE( STUDENT) :; STU = STUDENT(200703501，' 李 有 盼 盼 .TRUE. ，& 
&(/80,78,89,90,85/),BIRTH(1987,9,10)) 
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类 似 于 普通 变量 ,也 可 通过 输入 语句 来 给 结构 体 和 第 构 体 成 员 赋 初 伸 。 例 如 ,对 于 11. 3 


节 中 说 明 的 结构 体 DATE, 用 输入 语句 赋值 如 下 : 


READ * ,DATE 
执行 上 述 输入 语句 ,输入 数据 为 : 
1987 9 10w 


上 述 语句 执行 后 ,结构 体 DATE 的 值 为 BIRTH(1987,9,10)。 上 述 输入 语句 等 价 于 


下 列 输入 语句 : 


READ * ,DATE % YERR,DRTE % MONTH, DATE % DAY 
又 如 ,对 于 11.3 市 中 说 明 的 结构 体 STU ,用 输入 语句 赋值 如 下 : 

READ * ,STU 

执行 上 述 输 入 语句 ,输入 数据 为 : 

200703501, ' 李 有 盼 盼 ',. TRUE. , (/80,78,89,90,85/),BIRTH(1987,9,10)w 

此 外 ,还 可 使 用 DATA 语句 对 结构 体 或 结构 体 成 员 进 行 初始 化 ,例如 : 


DATA DATE1 /BIRTH(1988,6,1)/ 
DATA DRATE1 $% YEAR, DRTE1 % MONTH, DATE1 % DAY/1988,6,1/ 


上 述 两 语句 作用 等 价 , 但 是 对 结构 体 初 始 化 时 需要 使 用 结构 体 构造 商 数 。 
11.5 结构 体 数 组 


前 面 讲述 的 例子 只 是 处 理 一 名 学 生 的 简单 信息 ,在 实际 中 要 处 理 的 学 生 人 数 也 许 很 多 ， 


比如 一 个 班 或 一 个 学 校 的 所 有 学 生 ,这 种 情况 下 用 结构 体 数组 更 方便 。 
11.5.1 结构 体 数 组 定义 


结构 体 数组 定义 的 一 般 格式 有 如 下 两 种 : 
TYPE( 派 生 类 型 名 ) 结 构 体 数组 名 ( 维 说 明 表 )，… 


TYPE( 派 生 类 型 名 ),DIMENSION( 维 说 明 表 ) 结 构 体 数组 名 [( 维 说 明 表 ) ],… 
对 于 11. 2 节 中 的 派生 类 型 BIRTH 和 STUDENT ,可 定义 如 下 的 结构 体 数组 : 


TYPE( BIRTH) DRTE3(2) ,DRTE4(2, 20) 

TYPE( STUDENT) STU1(2),STU2( - 20: -1,20) 
TYPE(BIRTH) ,DIMENSION(40) DRTE5, DRTE6(50) 
TYPE( STUDENT) ,DIMENSION(40) STU3, STU4(50) 


上 述 1.2 条 定义 中 ,结构 体 数组 DATE3 和 STU1 是 一 个 包含 2 个 结构 体 元 素 的 一 维 


数组 ,DATE4 和 STU2 是 一 个 包含 40 个 绪 构 体 元 系 的 二 维 数组 。 对 于 3、4 条 定义 语句 需 
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要 注意 的 是 , 当 结 构 体 数组 名 后 自 带 的 维 说 明 符 与 DIMENSION 后 的 维 说 明 符 不 同时 , 则 
以 自 带 的 优先 。 因 此 ,结构 体 数 组 DATE5 和 STU3 均 为 包含 40 个 结构 体 元 素 的 一 维 数 
组 ,结构 体 数 组 DATE6 和 STU4 均 为 包含 50 个 结构 体 元 系 的 一 维 数 组 。 


11.5.2 结构 体 数 组 初始 化 


结构 体 数组 的 初始 化 同 普通 数组 的 初始 化 类 似 , 可 通过 数组 赋值 符 和 DATA 语句 来 赋 
初 值 。 给 结构 体 数 组 赋 初 值 需要 使 用 结构 体 构造 果 数 。 

(1) 使 用 数组 赋值 符 给 结构 体 数组 赋 初 值 

例如 ,对 于 前 面 定 义 的 结构 体 数组 DATE3 和 STU1 ,可 赋值 如 下 : 

DATE3 = (/BIRTH(1987,9,10),BIRTH(1988,1,19)/) 

STUl = (/STUDENT(200703501, ' 李 有 盼 盼 ', .TRUE. , (/80,78,89,90,85/),& 

&BIRTH(1987,9,10)),STUDENT(200703502, ' 张 军 ', .FALSE. ,& 

&(/75,78,81,85,88/),BIRTH(1987,9,10))/) 

(2) 使 用 DATA 语句 给 结构 体 数 组 赋 初 值 

例如 ,对 于 结构 体 数 组 DATE3 和 STU1, 可 赋值 如 下 : 

DATA DATE3/BIRTH(1987,9,10),BIRTH(1988,1,19)/ 

DATA STUl1/STUDENT(200703501," 李 有 盼 盼 ", .TRUE. , (/80,78,89,90,85/),& 


&BIRTH(1987,9,10)),STUDENT(200703502, ' 张 军 ', & 
& .FALSE.,(/75,78,81,85,88/),BIRTH(1987,9,10))/ 


11.6 程序 举例 


【 例 11-1】 现 有 3 名 和 学生 ,他 们 的 各 项 信息 如 下 。 要 求 打印 一 份 成 绩 单 ,成 绩 单 包 合 的 
数据 项 有 : 学 号 、 姓 名 、. 语 文成 绩 、 数 学 成 绩 、 类 请 成 绩 、 各 人 平均 成 绩 。 


9901 18.0 SLs 69.0 
9902 85.0 risd 80. 5 
9903 80. 0 92.0 19.0 


分 析 : 首先 定义 一 个 派生 类 型 STUDENT_SCORE, 其 成 员 包 括 学 号 NUM、 姓 名 
NAME .语文 CHIN ,数学 MATH .英语 ENG ,平均 成 绩 AVE ,再 说 明 三 个 结构 体 S1、S2 和 
S3。 通 过 赋值 语句 给 结构 体 赋 值 , 并 计算 平均 成 绩 , 最 后 打印 出 成 绩 单 。 

程序 编写 如 下 : 


TYPE STUDENT SCORE 
INTEGER NUM 
CHARACTER * 6 NAME 
REAL CHIN, MATH, ENG, AVE 
END TYPE 
TYPE( STUDENT SCORE) S1, S2, S3 
Sl = STUDENT SCORE(200901, ' 张 伟 ',78.0,81.0,69.0,0) 
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S2 = STUDENT_SCORE(200902, ' 李 丽 ',85.0,77.5,80.5,0) 
S3 = STUDENT_SCORE(200903, ' 赵 德 ', 80.0,92.0,79.0,0) 
S1 %S AVE= (S1 % CHIN+ S1 % MATH + S1 % ENG)/3.0 
S2 % AVE= (S2 % CHIN+ S2 % MATH + S2 % ENG)/3.0 
S3 % AVE= (S3% CHIN+ S3 % MATH + S3 % ENG)/3.0 
PRINT *,' 学 号 姓名 语文 数学 英语 平均 成 绩 ' 
PRINT 10, S81 
PRINT 10, S2 
PRINT 10, S83 
10 FORMAT(2X,16,3X, M4,4(3X,F4.1)) 
END 


程序 中 给 结构 体 S1、S2 和 S3 赋值 时 ,由 于 还 没有 计算 各 人 的 平均 成 绩 , 因 此 平均 成 绩 
四 
程序 运行 结果 如 图 11. 1 所 示 。 


| 9 
| 280902 
| 2009093 a 


| 请 去 性 章 键 继 毕 


图 11.1 例 11-1 程序 运行 结果 


【 例 11-2】 建立 菜单 位 职工 信息 查询 系统 。 某 单位 职工 信息 记录 包含 如 下 数据 项 . 工 
号 、 姓 名 ,性 别 \ 年 龄 ,工资 。 该 单位 共有 职工 500 人 。 要 求 建立 数据 文件 ,存放 职工 所 有 全 
上 县 ,并 且 输 入 一 个 职工 的 工 号 ,程序 能 打印 出 该 职工 的 所 有 信息 。 

分 析 : 首先 定义 一 个 派生 类 型 et a 包括 工 号 NUM.、 姓 名 


NAME 性别 SEX ,年龄 AGE 工资 SAL ,再 根据 派生 类 型 说 明 一 结构 体 数 组 CR ,其 元 素 
个 数 为 500。 


当 输 入 一 个 职工 的 工 号 NUMBER 后 ,将 该 工 号 与 结构 体 数 组 CR 中 存放 的 工 号 
进行 比较 , 右 相 等 则 找到 该 职工 ,打印 输出 该 职 了 -所 有 信息 即 可 , 若 比较 完 还 没有 找到 ,也 输 
出 提示 信息 。 

程序 编写 如 下 : 


PARAMETER(N = 500) 
TYPE CLERK RECORD 
INTEGER NUM 
CHARACTER x* 6 NAME 
LOGICAL SEX 
INTEGER AGE 
INTEGER SAL 
END TYPE 
TYPE(CLERK RECORD) CR(N) 
OPEN(8, FILE = “CLERK. TXT’, STATUS = “OLD’) 
DOI=1,N 
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READ(8,100) CR(I) 
END DO 
PRINT * ,"ENTER A CLERK’S NUMBER:" 
READ * ,NUMBER 
DOI=1,N 
IF(NUMBER == CR(I) % NUM) THEN 
PRINT * ，' 工 号 姓名 性 别 年 龄 工资 ' 
PRINT 100, CR(I) 
EXIT 
END DO 
IF(I>N) PRINT * ,'CAN NOT FIND THE CLERK!' 
100 FORMAT( 18, 3X, A6, 3X, A2, 3X, 12, 3X, 14) 
CLOSE(1) 
FND 


程序 中 数据 文件 CLERK. TXT 的 格式 应 与 READ 语句 格式 一 致 ,并 且 数 据 文件 与 程 
序 放 在 同一 个 PROJECT 中 。 为 简便 起 见 , 设 定 职 工人 数 为 10 人 ,建立 数据 文件 CLERK. 
TXT, 其 内 容 如 图 11.2 所 示 , 各 列 数据 之 间 按 照 语 句 标 号 100 中 指定 的 格式 设置 3 个 空 
调试 时 可 将 结构 体 数 组 的 元 系 个 数 改 小 , 减 小 测试 数据 的 输入 了 - 作 量 , 待 调试 完毕 .正确 无 
误 后 ,再 改 回 原来 的 数组 元 素数 500。 


20170101 王 小 强 男 35 4500 
20170102 王 强 男 45 5700 
20170103 种 彬 男 37T 3800 
20170104 “ 张 自 在 男 38 37650 
20170105 ” 陈 福 生 男 31 4530 a 瘟 | 年 闪 开放 
20170106 “ 左 小 娟 妈 256 2260 E 和 
20170107 ” 边 鸿 强 男 55 5500 育 按 性 意 铀 # 
20170108 ” 段 佳 已 ” 赤 28 6500 
20170109 牧 尘 男 41 3500 ed 
图 11.2 测试 用 数据 文件 内 容 及 格式 图 11.3 例 11-2 运行 结果 


【 例 11-3】〗 数据 文件 输入 硅 干 名 学 生 的 学 号 和 三 门 课程 (语文 ,数学 和 外 请) 的 成 绩 ， 
要 求 打印 出 按 平均 成 绩 进 行 排名 的 成 绩 单 。 如 果 平 均 成 绩 相 同 , 则 名 次 并 列 , 其 他 名 次 不 
变 。 要 求 用 派生 类 型 编写 程序 。 

分 析 : 首先 定义 一 个 派生 类 型 STUDENT RECORD, 其 成 员 包 括 学 号 NUM 三 门 课 
程 成 绩 A ,平均 成 绩 AVE .排名 S, 其 中 A 为 包含 三 个 元 系 的 数组 。 再 根据 派生 类 型 说 明 一 
个 结构 体 数组 CLASS, 其 元 素 个 数 为 学 生 人 数 。 

程序 编写 如 下 : 


PARAMETER(N = 10) 
TYPE STUDENT RECORD 
INTEGER NUM,S 
REAL A(3),AVE 
END TYPE 
TYPE( STUDENT RECORD) CLASS(N) 
PRINT 100, "请 输入 ",N, "个 学 生 的 学 号 和 成 绩 :" 
DOI=1,N 
READ * ,CLASS(I) % NUM,CLASS(I)%A 
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CLASS(I) % AVE= (CLASS(I) % A(1) + CLASS(I) % A(2) + CLASS(I) % A(3))/3.0 
END DO 

DOI=1,N 

K=0 

DOT= 1 

IF(CLASS(J) % AVE> CLASS(I) S$ AVE) K=K+1 

END DO 

CLASS(I)%®%S=K+1 

END DO 

PRINT x ,"' 


PRINT x*,' 按 照 平均 分 排名 如 下 : 


DOJ=1,N 
IF(CLASS(J) % S== 1) PRINT 200, CLASS(J) % S,CLASS(J) % NUM& 
CLASS(J) % A, CLASS(J) % AVE 
END DO 
END DO 
100 FORMAT(A, 13, A) 
200 FORMAT( I5, 110, 4F8.1) 
END 


程序 运行 结果 如 图 11. 4 所 示 。 


i EE Filos\erosort FIisual Studio\.. -Olx 
入 46 个 学 生 的 学 号 和 三 门 课 程 的 成 绩 : | 


88995 
2086993 
pd 
Wed | GL 
a 
280907 
BAA9 
2080904 
2069 82 
pa 


Press any kevy to continue 


图 11.4 例 11-3 运行 结果 


国 国 加 加 回国 回国 付 


国 国 国 国 国 国 国 国 国 国 


= 
国 国 回国 轩 国 回回 加 加 


a LL 
可 加 


【 例 11-4】 AN txt 文件 中 记录 了 一 家 企业 部 分 员工 的 工资 信息 ,包括 
ee 抽奖 金 .总 工商 。 企 业 因 被 要 求 代 扣 员 工 个 人 所 得 税 , 所 以 需要 完 
善 员工 信息 ,新 增 信息 包括 三 险 金 、 所 得 税 和 实 发 工 资 。 要 求 编写 程序 完成 如 下 工作 。 

(1) 根据 基本 工资 和 奖金 数据 ,完成 总 工资 .三 险 一 金 . 所 得 税 和 实 发 工资 的 计算 ,并 将 
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员工 工资 信息 保存 到 DD 盘 SHUJU 文件 夹 的 SALARY. TXT 文件 中 ， 

(2) 可 按 部 门 名 称 筛 选 出 某 部 门 全 部 员工 的 工资 信息 并 保存 。 

(3) 可 按 人 名 查询 某 员工 的 工资 信息 , 若 该 人 信息 不 存在 , 则 将 其 添加 到 员工 信息 库 
当中 。 

(4) 可 将 离职 员工 信息 从 员工 信息 表 中 删除 

分 析 : 这 是 一 个 综合 问题 ,建议 采用 子 程序 形式 编写 。 员 工 工资 信息 由 多 种 数据 类 型 
数据 构成 ,应 采用 派生 类 数据 处 理 , 当 采用 子 程序 处 理 派 生 类 数据 时 可 能 需要 在 每 个 子 程序 
内 定义 派生 类 ,比较 麻烦 ,不妨 将 派生 类 的 定义 放 在 模块 内 。 按 照 题目 设计 要 求 ,可 将 总 任 
务 分 解 成 9 项 任务 : 定义 包含 派生 类 型 定义 的 模块 ; 四 读 取 员工 信息 数据 文件 ; @@ 计 算 
个 人 总 工资 和 三 险 一 金 ; 计算 个 人 所 得 税 ; 加 计算 个 人 最 终 总 工资 ; @ 个 人 信息 查询 ; 
中 新 员工 信息 添加 ; @ 离 职员 工 信 息 删 除 ; @ 部 门人 员 信 息 汇 总 。 最 后 设计 测试 算 例 并 编 

任务 1 定义 包含 派生 类 型 定义 的 模块 ,以便 子 程序 方便 使 用 派生 类 ， 


MODULE SHUJU ! 定 义 模块 语句 ,SHUJU 是 模块 名 
TYPE CLERK 
INTEGER NUM 


CHARACTER * 6 NAME 
CHARACTER * 6 DEPARTMENT 

REAL SALARY(9) ! 工 资 项 由 相同 类 型 数据 构成 , 故 用 数组 作为 成 员 
END TYPE, 

END MODULE ! 模 块 定义 结束 语句 


任务 2 读 取 员工 数据 文件 ,由 于 可 能 存在 多 次 读 取 不 同位 置 的 不 同 数据 文件 ,这 里 将 数 
据 文件 名 采用 字符 参数 形式 处 理 , 通 过 虚实 结合 ,可 方便 主 程序 调用 。 设 计 此 子 程序 时 考虑 
到 员工 人 数 扩 容 问 题 , 故 形 人 参 有 4 个 ,分 别 是 数组 名 .、 原 有 员工 数 .、 新 增 员 工 数 和 数据 文件 路 
径 。 对 应 子 程序 INPUT 编写 如 下 : 


SUBROUTINE INPUT(A, M,N,PATH) 
USE SHUJU 
INTEGER M,N 
TYPE(CLERK) A(M+ N) 
CHARACTER x* ( * ) PATH 
OPEN(10, FILE = PATH) 
DOI=1,M 
READ(10,100),A(I) 

ENDDO 
CLOSE(10) 

100 FORMAT( 18, M6, 2X, A6, 2X, 9F10. 2) 
END 


任务 3 计算 “三 险 一 金 ”, 对 应 子 程序 如 下 。 其 中 Bl、B2、B3、B4 分 别 是 养老 保险 ,医疗 
保险 .失业 保险 和 住房 公积金 缴 存 比例 系数 (具体 调用 时 参考 相关 政策 ,一 般 为 8%、2”%、 
1% 和 10%) ,本 子 程序 按照 基本 工资 缴纳 "三 险 一 金 "”。WAGE 于 程序 如 下 : 


SUBROUTINE WAGE(A,M,B1,B2,B3,B4) 
USE SHUJU 


Ee FORTRAN 语言 程序 设计 一 一 FORTRANS5 
REAL B1, B2, B3, B4 

TYPE (CLERK) A(M) 

DOI=1,M 

A(I).SALARY(3) = A(I). SALARY(1) + A(I). SALARY(2) 
A(I).SALARY(4) = A(I).SALARY(1) * Bl 
A(I).SALARY(5) = A(I).SALARY(1) * B2 
A(I).SALARY(6) = A(I).SALARY(1) * B3 
A(I).SALARY(7) = A(I).SALARY(1) * BA 

ENDDO 

END 


子 程序 TAX 采用 2012 年 实行 的 7 级 超额 累进 个 人 所 得 税 税 率 表 进行 
税 计算 。 任 务 4 对 应 子 程序 如 下 : 


SUBROUTINE TAX(A,M) 
USE SHUUU 
TYPE(CLERK) A(M) 
REAL T 
DOI=1,M 
T= A(I). SALARY(3) 
DO J=4,7 
T=T— A(I).SALARY(J) 
ENDDU 
T=TIT 一 3500 
IF(T<0)THEN 
A(I).SALARY(8)=0 
ELSE IF(T<= 1500)THEN 
A(I).SALARY(8) = Tx 0.03 
ELSE IF(T<= 4500)THEN 
A(I).SALARY(8) = Tx*0.1— 105 
ELSE IF{T < 9000)THEN 
A(I).SALARY(8) = Tx¥* 0.2—555 
ELSE IF(T< 35000)THEN 
A(I).SALARY(8) = Tx 0.25— 1005 
ELSE IF(T< 55000)THEN 
A(I).SALARY(8) =T*#*0.3— 2755 
ELSE IF(T< 80000)THEN 
A(I).SALARY(8) = Tx* 0.35— 5505 
ELSE 
A(I).SALARY(8) = T* 0.45— 13505 
ENDIF 
ENDDO 
END 


任务 5 比较 简单 ,只 是 计算 实 发 工资 。 其 对 应 子 程序 NET_WAGE 如 下 : 


SUBROUTINE NET WAGE(A,™M) 

USE SHUJU 

TYPE(CLERK) A(M) 

DOI=1,M 

A(I).SALARY(9) = A(I). SALARY(3) 
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DOJ=4,8 
A(I).SALARY(9) = A(I).SALARY(9) — A(I). SALARY(J) 
ENDDO 
ENDDO 
es 


任务 6 是 按照 员工 姓名 查询 ,查询 结果 由 逻辑 型 参数 JIEGUO 返回 给 主 调 程序 单元 ， 


查询 到 则 返回 逻辑 值 ". TRUE. ”, 查 询 不 到 则 返回 逻辑 值 *. FALSE.”。 对 应 子 程序 FIND 
如 下 : 


SUBROUTINE FIND(A, M,NAME, JIEGUO) 
USE SHUJU 

TYPE(CLERK) A(M) 
CHARACTER * ( * ) NAME, 
LOGICAL JIEGUO 

DOI=1,M 

IF(NAME == A(I). NAME)THEN 
JIEGUO = .TRUE. 

EXIT 

ENDIF 

ENDDO 

IF(I > M)JIEGUO = .FALSE. 
END 


任务 7 用 于 插入 新 招聘 的 员工 ,插入 前 先进 行 查询 ,是 新 员工 就 插入 ,否则 打印 是 老 员 


SUBROUTINE ADD(A, M,NAME, JIEGUO) 

USE SHUJU 

TYPE(CLERK) A(M+1) 

CHARACTER * ( * ),NAME, 

LOGICAL JIEGUO 

INTEGER P 

CALL FIND(A,M, NAME, JIEGUO) 

IF(JIEGUO == . FALSE. )THEN 

PRINT < , "请 输入 新 员工 工 号 " 

READ* ,A(M+ 1).NUM 

A(M+ 1).NAME = NAME 

PRINT * , "请 输入 新 员工 的 部 门 " 

READ * ,A(M + 1).DEPARTMENT 
PRINT x* , "请 输入 新 员工 基本 工资 " 

READ x ,A(M+ 1).SALARY(1) 

PRINT * , "请 输入 新 员工 奖金 " 

READ*¥ ,A(M+ 1).SALARY(2) 

ELSE 

PRINT * ,NAME, "是 老 员 工 " 

ENDIF 

END 


任务 8 用 于 删除 离职 员工 的 信息 ,删除 前 先 查 词 ,如 果 是 本 单位 员工 执行 删除 操作 , 否 


则 打印 "不 是 本 单位 职工 >, 删除 时 按 名 称 找到 该 员工 的 信息 记录 位 置 ,然后 将 其 后 面 的 员工 


252 二 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


信息 向 前 复制 ,实现 删除 。 删 除 后 形成 的 新 员工 信息 文件 可 覆盖 原 有 数据 文件 或 男 行 存放 。 
程序 代码 如 下 : 


SUBROUTINE DELETE(A,M, NAME, JIEGUO, N, PATH) 
USE SHUJU 
TYPE( CLERK) A(M) 
CHARACTER x* ( * ), NAME, PATH 
LOGICAL JIEGUO 
INTEGER P,N 
N=M 
CALL FIND(A, M,NAME,JIEGUO) 
IF(JIEGUO == . TRUE. )THEN 
DOI=1,M 
IF(NAME == A(I). NAME)THEN 
P=I 
EXIT 
ENDIF 
ENDDO 
IF(P<M)THEN 
A(P:M—-1)=A(P+1:M) 
N=N-1 
ELSE 
N=N-1 
ENDIF 
PRINT x* ,NAME, "已 从 本 单位 职工 信息 中 删除 " 
OPEN( 12, FILE = PATH) 
DOJ=1,N 
WRITE(12,20),A(J) 
ENDDO 
ELSE 
PRINT x ,NAME, "不 是 本 单位 职工 " 
ENDIF 
20 FORMAT( 18, A6, 2x, A6, 2x, 9F10. 2) 
END 


任务 9 完成 部 门人 员 信 息 的 第 选 。 对 应 子 程序 如 下 : 


SUBROUTINE SELECT(A,M, DEPARTMENT, PATH) 
USE SHUJU 
TYPE(CLERK) A(M) 
CHARACTER x ( * ), DEPARTMENT, PATH 
OPEN( 30, FILE = PATH) 
DOI=1,M 
IF(A(I).DEPARTMENT == DEPARTMENT) THEN 
WRITE(30,20),A(I) 
ENDIF 
ENDDO 
20 FORMAT( 18, A6, 2X, A6, 2X, 9F10. 2) 
CLOSE( 30) 
END 


任务 10 是 设计 测试 主 程序 ,通过 调用 各 个 子 程序 ,验证 子 程 序 的 功能 是 否 实现 。 这 里 
假定 文件 SHUJU. TXT( 图 11.6) 内 有 8 个 员工 记录 ,又 招聘 2 名 新 员工 。 制 作 一 个 所 用 员 
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工 的 工资 清单 ,保存 到 WAGE CLERK. TXT 文件 (图 11.7) ,删除 员工 <“ 叶 檀 ” 后 形成 数据 
文件 SHUJU _ DEL. TXT (图 11. 8), 季 选 出 广告 部 全 部 员工 的 信息 并 存 人 文件 
DEPARTMENT SHUJU. TXT( 图 11.9)。 测 试 主 程序 如 下 ,运行 过 程 中 的 人 机 交互 输入 
如 图 11. 5 所 示 。 

USE SHUJU 

TYPE( CLERK), ALLOCATABLE.. XIBEI(:) 

INTEGER M,N,K 


LOGICAL JIEGUO 
PRINT * , "请 输入 原 有 员工 人 数 " 


READ * ,M 
PRINT * , "请 输入 新 员工 人 数 " 
READ* ,N 


ALLOCATE( XIBEI(M+ N)) 

CALL INPUT(XIBEIT, M,N, "SHUJU. TXT" ) 

CALL ADD(XIBEI, M, " 张 晓 芳 ",JIEGUO) 

CALL ADD(XIBEI,M+ 1," 梅 兰 芳 ",JIEGUO) 

CALL WAGE(XIBEI, M+ N,0.02,0.02,0.01,0.05) 

CALL TAX(XIBEI,M+ N) 

CALL NET WAGE(XIBEI,M+N) 

OPEN( 30, FILE = "WAGE CLERK. TXT" ) 

DOI=1,M+N 

WRITE(30,100), XIBEI(I) 

ENDDO 

CLOSE(30) 

CALL FIND(XIBEI, M+ N, " 张 晓 芳 ",JIEGUO) 

CALL DELETE( XIBEI,M + N, " 叶 檀 ",JIEGUO,K,"SHUJU DEL. TXT") 

CALL SELECT(XIBEI, K, "广告 部 ", "DEPARTMENT SHUJU. TXT") 
100 FORMAT( 18, A6, 2X, A6, 2X, 9F10. 2) 


请 输入 新 员工 人 数 
四 

请 输入 新 员工 工 号 
1 7 四 四 9 


请 输入 新 员工 的 部 站 
广告 部 
请 输入 新 员工 基本 工资 


请 输入 新 员工 奖 人 
言 已 从 本 单位 职工 信息 中 删除 
En 


图 11.5 运行 过 程 中 的 人 机 交互 输入 
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罩 shuju - 记事 本 
文件 日 ”编辑 {E) 

| 2010001 李 丽 刀 o 

空 妆 


2011002 可 : 


格式 


te 


aba89. 30 
3100. 00 


| 2010001 李 坝 
2011002 司 空 
2012004 张 树 泽 
201 3005 电 举办 
2 
2016007 区 由 百 
2016008 良 厚 心 


2010001 李 有 丽 娜 
2016007¥I]YB 
2017009 张 晓 了 


1. 某 班 要 建立 学 生 信 息 档 案 , 学 生 信 息 数 据 包 括 学 号 、 姓 名 、 性 别 、 
门 课程 成 绩 。 定 义 一 个 学 生 信息 的 派生 类 型 ,并 定义 一 个 能 保存 全 班 50 人 信息 的 结构 体 


数组 。 


2. 输入 10 名 学 生 的 学 号 、 姓 名 性 别 和 一 门 课程 的 成 绩 , 要 求 打 印 出 不 及 格 学 生 的 所 


有 信息 0 


3. 已 知 职工 工 资 表 记录 包括 : 职工 号 、 姓 名 、 年 龄 、 


2017009 张 晓 芳 | 


2011003 叶 柱 

2012004 张 衬 泽 
2013005 田 光 胸 
ls 忆 
201600730l| 注 刀 
2016008 唐 寿 心 


对 RS 


T7687. 90 
8563. 00 
B589. 5 
8500.0 
8900.0 
boad. 0 


NN NO NN NN 


号 岂 于 二 


孙 吕 | 


Sb89., 30 
38100. 00 
T7687. 90 
8563. OD 
B58Y. oO 
8500. 00 
8900. 00 
B524. 00 
4250.00 
dd450. 00 


1 
reo 


红 开 丰 昌 强 红 或 型 三 遇 


企 
和 
企 
FE 
蔡 
甩 
| 


S68Y, 30 
S100. On 
8563. 00 
6589. 50 
8500. 00 
890U. On 
bb2d. O00 
d250. 00 


8689. 30 
8900 00 
4250. 00 


广告 部 
广 呈 部 
广 备 部 


1002. s0 
B56,. D0 
150, bn 


9691, 80 
9756. 50 
4400, bb 


173,79 
178. 00 
85, 00 


173, 179 
178. 00 
sb. 00 


86. 89 
$9. OD 
d2. 50 


4d34d. 46 
dd5. DO 
212. 50 


图 11.9 测试 程序 运行 时 筛选 形成 的 部 门 员工 信息 数据 文件 


习 地 11 


称 、 工 资 ,建立 一 


S09. oF 
S18. 30 
14. 25 


S313, $0 
8348. 20 
J960, 75 


年 龄 、 冢 寿 住 址 、5 


个 10 个 职工 组 成 
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的 记录 表 , 打 印 输 出 职工 中 工资 最 局 和 最 低 痢 的 所 有 信息 ,以 及 工 黄 总 额 和 平均 工 贰 。 

4. 输入 10 个 数 ,将 它们 从 小 到 大 排序 ,输出 排序 后 的 数 及 这 些 数 在 排序 前 的 次 序号 。 

5. 设 有 30 名 投票 人 给 5 名 候选 人 投票 ,统计 候选 人 得 票 结果。 要 求 建立 数据 文件 存 
放 投 票 信 息 ,并 按 票 数 由 多 到 少 的 次 序 输出 每 名 候选 人 的 姓名 、 票数 及 其 占 总 票数 的 百 
ss 

6. 教室 分 配 问题 。 某 校 共 有 20 间 教 室 , 每 间 教 室 规定 了 教室 编号 和 座位 数 。 现 有 寿 
干 个 班级 需要 分 配 教室 ,班级 个 数 不 定 ,一 间 教 室 只 能 分 配给 一 个 班级 ,一 个 班级 也 只 能 分 
配 一 间 合 适 教室 (座位 数 大 于 或 等 于 班级 人 数 且 最 接近 班级 人 数 的 教室 )。 输 入 班级 编号 和 
人 数 ,进行 教室 分 配 ,输出 教室 分 配 结果 ,包括 : 班级 编写、 人数、 有 无 教室 分 配给 该 班 、 分 配 

7. 修改 例 9-3 中 的 程序 ,使 之 满足 下 面 的 要 求 。 

(1) 把 输入 的 数据 存放 在 文件 中 ,通过 程序 调用 文件 来 给 变量 赋值 。 

(2) 成 绩 单 除了 在 屏 帮 上 打印 外 ,还 要 存放 在 另 一 个 数据 文件 中 。 


教学 目标 : 

。 学 会 指针 的 定义 方法 ; 

。 等 握 两 种 常见 的 指针 的 使 用 方式 ; 
。 学 握 指针 数组 的 定义 格式 ; 

。 学 会 使 用 指针 数组 ; 

。 学会 结 点 的 定义 方法 ; 

。 等 握 链 表 的 基本 操作 。 


指针 是 FORTRAN90 开始 引入 的 一 个 非 党 有 用 的 概念 。 正 确 而 灵活 地 运用 指针 ,可 以 
使 程序 简洁 、 紧 次、 高 效 。 它 既 可 以 用 来 保存 变量 ,也 可 以 动态 使 用 内 存 , 更 高 级 地 , 则 可 以 
应 用 在 特别 的 数据 结构 上 ,如 创建 “ 串 行 结 构 ”“ 树 状 结构 ”等 。 

本 章 主 要 介绍 指针 的 概念 和 应 用 。 指 针 的 概念 比较 复杂 ,使 用 也 比较 灵活 ,因此 初学 时 
第 会 觉得 困难 ,使 用 时 容易 出 错 ,请 大 家 多 思考 ,多 比较 多 上 机 ,在 实践 中 掌握 它 。 


12.1 指针 的 概念 


要 理解 和 千 握 指针 的 概念 ,必须 弄 清楚 数据 在 内 存 中 是 如 何人 存储 的 ,又 是 如 何 谈 取 的 。 

如 果 在 程序 中 定义 了 一 个 变量 ,在 编译 时 就 给 这 个 变量 分 配 内 存单 元 。 系 统 根据 定义 
变量 的 数据 类 型 ,分 配 一 定 长 度 的 空间 。 例 如 ,一 般 微 机 的 EORTRAN95 系统 为 一 个 整 型 
变量 分 配 4 个 字 节 ,为 一 个 单 精度 实 型 变量 分 配 4 个 字 节 ,为 长 度 为 5 的 字符 型 变量 分 配 
5 个 字 节 ,为 元 素 个 数 为 3 的 整 型 数组 分 配 12 个 字 节 。 内 存 区 的 每 一 个 字 节 都 有 一 个 “ 编 
号 ”, 这 就 是 地 址 。 内 存 就 好 像 一 个 大 旅馆 ,内 存单 元 
的 地 址 就 相当 于 房间 号 ,内 存单 元 里 的 数据 则 相当 于 
旅馆 中 各 房间 居住 的 旅客 。 

如 同 旅客 和 房间 号 是 两 个 概念 一 样 ,一 个 内 存单 a 
元 的 内 容 和 地 址 也 是 两 个 概念 。 2005 

如 图 12. 1 所 示 ,假设 程序 中 已 经 定义 了 三 个 整 型 ” 2009 
变量 IJ 入 , 编 详 时 系统 分 配 2001 一 2004 的 4 个 字 
节 给 变量 I, 分 配 2005 一 2008 的 4 个 字 节 给 变量 J, 分 3011 变量 L_ POINTER 
配 2009 一 2012 的 4 个 字 万 给 变量 人 。 在 程序 中 一 般 
通过 变量 名 来 对 内 存单 元 进行 存 取 操作 。 程 序 经 过 
编译 后 已 经 将 变量 名 转换 为 变量 的 地 址 ,对 变量 值 的 12.1 变量 与 内 存单 元 的 对 应 关系 


内 存 用 户 数据 区 
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存 取 都 是 通过 地 址 进行 的 。 例 如 ,有 赋值 语句 KK==I 十 J ,执行 情况 是 这 样 的 : 先 找到 变量 I 
的 起 始 地 址 2001 ,然后 从 由 2001 开始 的 4 个 宇 节 中 取出 变量 工 的 值 3, 再 从 起 始 地 址 2005 
开始 的 4 个 字 节 中 取出 变量 丁 的 值 6, 把 它们 相 加 后 将 其 和 值 9 送 到 变量 所 占 的 ,起 始 地 
址 为 2009 的 4 个 字 节 的 整 型 存储 单元 中 。 这 种 按 变量 地 址 存 取 变量 值 的 方式 称 为 "直接 访 
问 ?方式 。 

除 此 之 外 ,还 可 以 采用 一 种 称 为 “间接 访问 ”的 方式 。 和 定义 一 个 指针 变量 LI_ POINTER， 
将 变量 工 的 地 址 存放 到 变量 LIL_ POINTER 中 。 假 设 指针 变量 L_ POINTER 被 分 配 3011 一 
3014 的 4 个 字 节 ,通过 下 面 的 语句 可 以 将 变量 工 的 起 始 地 址 (2001) 存 放 到 指针 变量 
I_ POINTER 中 。 

工 PUINIER = > 工 

这 样 一 来 就 使 指针 变量 L_POINTER 指 癌 整形 变量 1, 整 型 变量 工 成 为 指针 变量 
POINTER 的 目标 变量 。 

可 以 通过 赋值 语句 LPOINTER 王 3, 采 用 "间接 访问 ?方式 ,将 数值 3 送 到 变量 工 中 。 

如 图 12. 2 所 示 ,为 了 将 数值 3 送 到 整 型 变量 I 中 ,可 以 有 直接 访问 和 间接 访问 两 种 


Fi 
| I 
| 3 | POINTER 一 上 3 
2001 2001 
(a) 直接 访问 (b) 间接 访问 


图 12.2 直接 访问 和 间接 访问 的 示意 


(1) 直接 将 3 送 到 整 型 变量 I 所 标识 的 单元 中 , 见 图 12.2(a), 即 “直接 访问 ”。 

(2) 将 3 送 到 变量 LPOINTER 所 “ 指 癌 ”的 单元 中 , 见 图 12.2(b), 即 “间接 访问 ”。 

在 FORTRAN 语言 中 ,所 请 “ 指 问 ”是 通过 给 目标 变量 冠 以 别名 的 方式 来 体现 的 。 
I_POINTER 就 是 变量 I 的 一 个 别名 ,这 样 在 I_POINTER 和 I 之 间 就 建立 了 一 种 联系 , 即 
通过 I POINTER 能 知道 变量 1 所 占用 的 内 存 地 址 和 其 中 所 存放 的 内 容 。 图 中 用 季 头 来 表 
示 这 种 “ 指 问 ”关系 。FORTRAN 中 , 称 一 个 变量 的 别名 为 该 变量 的 “指针 ” ,那个 作为 别名 
的 变量 就 是 “指针 变量 ”。 例 如 ,I_POINTER 即 为 变量 工 的 指针 ,I_ POINTER 就 是 指针 


12.2 指针 的 定义 与 使 用 


指针 变量 定义 的 一 般 格 式 为 : 


类 型 说 明 ,target:: 目标 变量 名 1, 目标 变量 名 2,… 

类 型 说 明 , pointer:: 指针 变量 名 1, 指针 变量 名 2, … 

说明 : 

(1) 定义 指针 变量 前 ,必须 先 要 定义 指针 变量 的 目标 变量 。 
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(2) 指针 是 一 种 特殊 的 变量 ,特殊 性 表现 在 类 型 和 值 上 。 从 变量 角度 来 讲 , 指 针 变 量 也 
具有 变量 的 三 个 要 素 。 

Q 变量 名 ,这 与 一 般 的 变量 命名 规则 相同 。 

@ 指针 变量 的 类 型 是 指针 所 指 问 的 变量 的 类 型 ,而 不 是 自 屿 的 类 型 。 

GB) 指针 变量 的 值 是 某 个 变量 在 内 存 中 的 地 址 , 即 变量 的 内 存 地 址 。 

例如 : 


INTEGER, TARGET :: I, J 
INTEGER, POINTER :: P1，P2 


上 面 两 个 语句 定义 了 两 个 整 型 目标 变量 IJ 和 两 个 指向 整 型 变量 的 指针 变量 P1、P2。 
12.3 指针 的 使 用 


指针 变量 的 使 用 有 两 种 方式 , 即 指 癌 一 般 变量 ( 非 指 针 变 量 ) 和 指 问 动态 存储 (程序 运行 
中 ) 空 间 。 


12.3.1 指 回 一 般 变 量 的 应 用 


对 于 一 般 变 量 ,指针 记录 变量 的 内 存 位置 , 称 为 指 阿 ,其 后 指针 相当 于 这 个 一 般 变 量 的 
别名 ,这 个 变量 在 说 明 时 必须 上 共有 target 属性 , 称 为 目标 变量 。 
指针 变量 的 赋值 格式 为 ， : 


指针 变量 => 目 标 变量 或 男 一 个 指针 变量 


说 明 : 

(1) 多 个 指针 变量 可 以 指 回 同一 目标 变量 ,但 是 ,一 个 指针 变量 只 能 指 回 一 个 目标 变 
量 ,不 能 同时 指 问 多 个 目标 变量 。 

(2) 指针 变量 和 目标 变量 的 数据 类 型 必须 一 致 。 

(3) 指针 变量 是 其 目标 变量 的 别名 ,在 编译 时 当 作 同一 变量 ,指针 变量 的 使 用 就 是 对 日 
标 变量 的 使 用 。 

(4) 在 程序 中 ,指针 变量 有 以 下 三 种 状态 。 

QD 未 定义 状态 。 在 程序 初始 化 状态 中 ,所 有 指针 处 于 这 种 状态 。 

空 指针 ,只 是 指针 而 不 是 任何 目标 变量 的 别名 。 

3 关联 状态 , 即 指 针 是 某 一 目标 变量 的 别名 。 只 有 在 这 种 状态 下 ,指针 才能 参与 运算 ， 

否则 会 出 错 或 是 非法 操作 。 


例如 : 
Pl=>I (把 变量 工 的 地 址 存放 在 指针 Pl 中 ) 
PpP2=>J (把 变量 J 的 地 址 存放 在 指针 P2 中 ) 


接 下 来 通过 例题 来 了 解 指针 变量 指 问 一 般 变 量 的 应 用 。 
【 例 12-1】 编写 程序 ,实现 以 下 要 求 : 用 指针 变量 来 记录 另外 一 个 目标 变量 的 地 址 ,再 
通过 指针 来 读 写 数据 。 
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程序 编写 如 下 : 


IMPLICIT NONE 
INTEGER, TARGET::A=1 1! 定义 一 个 目标 变量 , 即 整 型 变量 A 
INTEGER, POINTER::P ! 定 义 一 个 可 以 指向 整 型 变量 的 指针 
P=>A ! 把 指针 PP 指向 变量 A 
PRINT x ,P 

及 = 5 1! 改变 A 的 值 

PRINT x ,P 

P=8 

PRINT x ,A 

END 


程序 运行 结果 如 图 12. 3 所 示 。 

分 析 : 第 1 行 输出 1, 输 出 语句 “PRINT * ,P” 要 输出 指针 了 的 值 , 即 为 输出 指针 了 所 
指向 的 变量 A 的 值 , 因 此 输出 结果 为 1; 执行 A=5 后 ,A 变 量 的 值 发 生 了 变化 , 同 前 面 的 输 
出 语句 一 样 , 要 输出 指针 P 的 值 就 是 输出 变量 A 的 值 , 因 此 第 2 行 输出 为 5; 通过 赋值 语句 
P 一 8 改变 了 指针 了 的 值 ,也 就 是 改变 了 指针 P 所 指向 的 变量 A 的 值 ,因此 第 3 行 输出 的 
是 8。 

从 这 个 例子 中 可 以 看 出 ,程序 中 ,指针 P 指 癌变 量 A 的 存储 单元 ,改变 一 个 变量 的 值 ， 
- J 这 是 指针 的 第 一 种 使 用 方式 ,只 要 将 指针 指向 一 个 目标 变量 ,使 

用 指针 和 使 用 这 个 一 般 变量 (目标 变量 ) 没 有 差别 。 

【 例 12-2】 ee 变量 指向 另 一 个 指针 变量 ,观察 指针 变量 值 的 变化 情况 。 

程序 编写 如 下 : 


Press any key to continue 


12.3 例 12-1 运行 结果 


IMPLICIT NONE 

REAL, TARGET :: Al = 15, A2= 27 
REAL, POINTER :: P1，P2 
Pl=>Al 

P2 => P1 

PRINT xx , Pl,P2,Al 

P2 => A2 

PRINT * ，P1，P2 

P1 = P2 

PRINT x* , Pl,P2,Al,AM2 
END 


程序 运行 结果 如 图 12. 4 所 示 。 


15 .Wy 15 .WH 15 .WOH 
15 .可 是 和 四 遇 2 -i 
27 .HH 27 -HH a7 .HH 27 .BHA 


Press any key to continue 


图 12.4 例 12-2 运行 结果 
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是 Al 的 别名 ,如 图 12.5(a) 所 示 , 因 此 输出 结果 的 第 1 行 均 为 15. 00000。 


Al A2 


(al P1 、P2 指 问 同一 个 变量 Al (b) P1 指 向 A1，P2 指 向 A2 
Al A2 


(c) P1 指 向 A1，P2 指 向 A2 


12.5 指针 的 变化 


指针 赋值 语句 P2 王 > A2 又 指定 指针 变量 P2 指向 变量 A2, 即 P2 为 A2 的 别名 ,如 
图 12.5(b) 所 示 , 因 此 输出 结果 的 第 2 行 分 别 为 15.00000 和 27.00000。 

通过 赋值 语句 P1 王 P2 将 指针 变量 P2 的 值 赋值 为 Pl 的 值 , 也 就 是 将 A2 的 值 赋值 给 了 
Al ,此 时 Pl1、P2 的 指向 关系 没 变 , 如 图 12.5(c) 所 示 , 因 此 输出 结果 的 第 3 行 均 为 27. 00000。 


12.3.2 指 器 动态 存储 空间 


在 程序 执行 过 程 中 ,可 以 动态 地 分 配 存储 空间 ,通过 指针 指向 这 一 空间 来 进行 应 用 。 
【 例 12-3】 指针 指 问 动态 存储 空间 。 


程序 编写 如 下 : 

IMPLICIT NONE 

INTEGER, POINTER :: P ! 定 义 一 个 可 以 指向 整 型 数 的 指针 

ALLOCATE(P) ! 动 态 分 配 一 块 可 以 存放 整 型 数 的 存储 空间 给 指针 P 

P=50 ! 得 到 存储 空间 后 ,指针 P 可 以 像 一 般 整 型 变量 一 样 来 使 用 
PRINT * ,P 

DEALLOCATE(P) 

END Press any poy Lo cont1inue 
程序 运行 结案 如 图 12. 6 所 示 。 z 
程序 中 使 用 了 函数 ALLOCATE 和 DEALLOCATE 图 12.6 例 12-3 运行 结 汪 


这 两 个 函数 在 第 7 章 中 已 经 介绍 过 , 那 时 候 是 用 
ALLOCATE epi - 块 内 存 空间 给 动态 数组 使 用 , 它 也 可 以 用 来 配置 一 块 内 存 空间 
给 指针 使 用 ,如 本 例 。 

这 里 指针 变量 P 是 一 个 能 存储 整 型 变量 内 存 地 址 的 指针 变量 ,通过 第 4 行 
ALLOCATE(P) 语 句 为 P 配置 了 4 个 字 节 的 整 型 存储 空间 ， 并 将 地 址 存放 在 指针 P 中 ， 使 
指针 变量 P 成 为 动态 分 配 所 得 内 存 空间 的 别名 ,如 图 12.7(a) 所 示 。 


| 
(a) 指针 指向 动态 存储 空间 (b) 给 指针 赋值 
12.7 指针 变量 P 的 运行 过 程 
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第 4 行 赋值 语句 P= 二 50, 通 过 PP 为 存储 空间 赋值 ,如 图 12.7(b) 所 示 , 所 以 输出 PP 的 值 
为 50。 

当 不 需要 P 所 指向 的 存储 空间 时 ,通过 第 5 行 DEALLOCATE(P) 语 句 释 放 其 空间 。 
如 果 不 释放 空间 ,会 在 计算 机 中 形成 一 块 已 经 配置 . 却 被 丢弃 的 内 存 。 一 般 而 言 ,也 数 
ALLOCATE 和 DEALLOCATE 总 是 配对 使 用 。 

使 用 指针 之 前 ,一定 要 先 设置 好 指针 的 目标 ,不 然 在 程序 执行 时 ,会 发 生意 想不到 的 情 
况 。 因 为 使 用 指针 是 使 用 它 所 存储 的 内 存 地 址 ,还 没 设置 指向 的 指针 不 会 知道 哪里 有 内 存 
可 以 使 用 ,在 这 个 时 候 使 用 指针 会 出 现 内 存 使 用 错误 的 信息 。 

FORTRAN 提供 函数 ASSOCIATED ,用 来 检查 指针 是 否 已 经 设置 指向 。 

ASSOCIATED ( 指针 变量 名 [, 变 量 名 ] ) 

图 数 的 返回 值 为 逻辑 型 ,有 以 下 三 种 情况 。 

(1) 函数 的 参数 只 有 一 个 指针 变量 名 ,如 ASSOCIATEDCP)。 

如 果 P 是 一 个 目标 变量 的 别名 , 即 指 针 变 量 已 经 指向 了 一 个 目标 变量 , 则 函数 返回 
.TRUE. ; 否则 返回 . FALSE. 。 

(2) 函数 有 两 个 参数 ,第 2 个 参数 是 一 个 目标 变量 名 。 

如 果 指 针 变 量 是 第 2 个 参数 所 代表 的 目标 变量 的 别名 , 则 函数 返回 . TRUE. ; 否则 返 
.FALSE. 。 

(3) 函数 有 两 个 参数 ， 且 第 2 个 参数 也 是 指针 变量 名 。 

当 这 两 个 指针 均 为 空 或 指 回 同一 个 目标 变量 时 , 则 郴 数 返回 . TRUE.; 否则 返 
.FALSE. 。 

程序 中 ,可 以 使 用 NULLIFY 语句 ,又 称 置 空 语 句 ,将 指针 变量 设置 成 空 状态 。 

NULLIFY( 指 针 变 量 ) 

【 例 12-4】 ASSOCIATED 的 应 用 。 

程序 编写 如 下 : 

IMPLICIT NONE 


INTEGER，POINTER :: P 
INTEGER, TARGET :: A=1,B=2 


NULLIFY(P) ! 将 指针 了 设 为 空 指针 

PRINT * , ASSOCIATED(P) 1! 困 数 值 为 FALSE 

P=>B 

PRINT * , ASSOCIATED(P) 1 图 数值 为 TRUE ,指针 了 已 赋值 

PRINT * , ASSOCIATED(P, B) ! 图 数值 为 TRUE, 指针 PP 指向 目标 变量 B 
PRINT * , ASSOCIATED(P, A) ! 图 数值 为 FALSE, 指针 PP 不 指 癌 目标 变量 A 
END 


程序 运行 结案 如 图 12. 8 所 示 。 

指针 可 以 声明 成 任何 数据 类 型 ,甚至 是 用 户 日 定 义 的 数 
据 类 型 ,但 是 不 省 指针 是 用 来 指 癌 哪 一 种 数据 类 型 ,每 一 种 
指针 变量 独占 用 相同 的 内 存 空间 。 因 为 指针 变量 实际 上 是 
用 来 存放 内 存 地 址 ,以 现在 的 32 位 计算 机 来 说 ,存放 一 个 内 
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存 地 址 固定 需要 使 用 4 个 字 节 的 空间 。 
12.4 指针 与 数组 


指针 也 可 以 定义 成 数组 ,定义 成 数组 的 指针 同样 可 以 有 两 种 使 用 方法 ,即将 指针 指 回 其 
他 数组 或 动态 配置 内 存 空间 来 使 用 。 


12.4.1 指针 指 回 其 他 数组 
定义 指针 数组 指向 目标 数组 。 指 针 数 组 定义 格式 为 : 
类 型 说 明 ,DIMENSION( : … : ) ,POINTER: :指针 数组 名 


【 例 12-5】 一 维 指 针 数 组 应 用 1。 
程序 编写 如 下 : 


IMPLICIT NONE 
INTEGER, POINTER :: P(:) 
INTEGER, TARGET :: A(5),B(10) 
INTEGER I 
P=>A 
DOI=1,5 
P(I)=13-I 
ENDDO 
PRINT 10, A 
10 FORMAT(1X,5I5) 
P=>B 


PRINT 20,P 
20 FORMAT(1X,10I5) 
END 


程序 运行 结果 如 图 12. 9 所 示 。 
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图 12.9 例 12-5 运行 结果 


程序 中 ,P 为 指向 一 维 整 型 数组 的 指针 数组 ,指针 数组 在 定义 时 只 要 说 明 它 的 维 数 即 
可 ,不 能 说 明 它 的 大 小 ,类 似 于 动态 数组 。 

被 当成 目标 给 指针 使 用 的 数组 ,在 定义 时 同样 要 加 上 TARGET 说 明 ， 

第 5 行 指针 赋值 语句 P= 二 > A 使 指针 数组 P 指向 一 维 数组 A, 即 成 为 一 维 数组 A 的 别 
名 。P(1)=>A(1) ,P(2) 王 >A(2),P(3) 王 >A(3),P(4) 王 >A(4) ,P(5) 一 >A(5) ,因此 对 了 
的 运算 等 同 于 对 A 的 运算 。 同 样 , 第 11 行 指针 赋值 语句 P= 王 > 了 使 指针 变量 了 成 为 一 维 数 
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组 B 的 别名 ,对 B 的 运算 等 同 于 对 P 的 运算 。 
【 例 12-6】 一 维 指针 数组 应 用 2。 
程序 编写 如 下 : 


IMPLICIT NONE 

INTEGER, POINTER :: P(:) 

INTEGER, TARGET :: A(5)= (/1,2,3,4,5 /) 
P=>A(1:3) 

PRINT x , P 

P=>A(l1:5:2) 

PRINT x* , P 

P=>A(5:1:—1) 

PRINT x* ，P 

END 


程序 运行 结果 如 图 12. 10 所 示 。 
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图 12.10 例 12-6 运行 结果 


程序 中 可 以 看 到 指针 数组 可 以 只 选择 目标 数组 中 的 一 部 分 来 使 用 。 第 4 行 取出 数组 A 
中 的 前 三 个 元 了 率 来 使 用 ,这 时 指针 数组 P 的 大 小 为 3, 相 当 于 P(1) 二 >A(l),P(2) 二 >A(2)， 
P(3)=> A(3) 。 

还 可 以 间隔 地 选择 目标 数组 中 的 一 部 分 来 使 用 。 审 6 行 取出 数组 A 的 第 1.3、5 个 元 
素来 使 用 , 即 P(1)==> A(1),P(2)==> A(3),P(3) 一 >A(5) 。 

逆序 赋值 也 可 以 做 到 。 第 8 行将 指针 数组 PC1) 一 P(5) 逆 向 指向 数组 A, 即 P(1) 王 > 
A P= A P=—=> A .POD=> A P= > AC 

以 上 两 个 例题 是 一 维 指针 数组 的 应 用 ,也 可 有 多 维 指针 数组 。 

【 例 12-7】 多 维 指 针 数 组 应 用 。 


程序 编写 如 下 : 
IMPLICIT NONE 
INTEGER, POINTER ..， P(:, :) 
INTEGER, TARGET :: A(3,3,2) 
INTEGER I 
DOI=1,3 

MT 1}=1 

Ml:, 1, 2)=2%1 
ENDDO 
P=>A(:,:,1) 
PRINT'(913)',P 
P=>A(1:3:2,1:2,2) 
PRINT'(413)', P 
END 
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程序 运行 结果 如 图 12., 11 所 示 。 
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图 12.11 例 12-7 运行 结果 


本 例 中 用 二 维 指针 数组 P 指 癌 三 维 数 组 A 中 的 一 小 部 分 。 
经 过 赋值 ,三 维 数组 A 如 下 : 


Vilsly Filly Als3 1 ff 艺名 
BZ Toly AlD2ly Bl.S 1) 1 2 3 
Te BAUllSly A(Y 1) i 
A(ls1s2) A(l,2,2) A(l,3,2) 2 4 6 
Mt 2 MUD M23 2 4 6 
古人 MLD) Ml 2 4 6 
程序 第 9 行 中 ,P 二 > A(:,:,1), 这 时 二 维 指针 数组 P 是 3X3 的 指针 数组 ,指向 A 数组 


的 三 段 , 即 : 


RE 
和 
EEC OUEOSE RS 和 和 

第 11 行 中 ,P=>A(1:3:2,1:2,2), 这 时 二 维 指针 数组 P 是 2X2 的 指针 数组 ,指向 A 
数组 的 片段 , 即 : 

EC 


Rel,17—> A 1.2; 
Plo 1)—> A(3,10; 
所 以 有 如 图 12. 11 所 示 运 行 结果 。 
在 程序 中 常常 需要 使 用 数组 的 一 部 分 ,可 以 通过 定义 指针 数组 来 使 用 这 一 部 分 的 数组 ， 
应 用 起 来 会 比较 方便 。 
12.4.2 指针 指向 动态 配置 的 内 存 空 间 
指针 数组 除了 可 以 指 癌 某 个 目标 数组 之 外 ,还 可 以 使 用 ALLOCATE 来 配置 一 块 内 存 
空间 使 用 ,所 以 指针 数组 也 可 以 拿 来 当 作 动态 数组 使 用 。 
【 例 12-8】 指针 数组 当 作 动态 数组 。 
程序 编写 如 下 : 


INTEGER, POINTER .. A(:) ! 定 义 A 是 一 维 指针 数组 

ALLOCATE( A(5)) ! 配置 5 个 整数 的 空间 给 指针 数组 A 
A= (/1,2,3,4,5/) 

PRINT* , A 

DEALLOCATE( A) ! 应 用 完成 后 释放 相应 内 存 空间 


END 


程序 运行 结果 如 图 12. 12 所 示 。 


四 


果 


运行 


图 12.12 例 12-8 


i 


指针 数组 的 这 种 使 用 方法 可 以 有 效 地 避免 存 储 空 间 的 浪费 ,可 以 在 程序 运行 时 给 数组 
动态 分 配 大 小 。 
【 例 12-9〗 利用 指针 数组 打印 下 三 角 和 矩阵 ,如 图 12. 13 所 示 。 


P 


图 12.13 要 打印 的 三 角 和 给 阵 


pO 
一 一 DO 
_ i 
| 


程序 编写 如 下 : 


IMPLICIT NONE 
INTEGER N, I,J 
PRRRMETER (N= 4) 
TYPE ROW 
INTEGER, POINTER:: R(:) 

END TYPE 
TYPE(ROW):: P(N) 
DOI=1,N 

ALLOCATE(P(I) % R(1:1)) 
ENDDO 
DOI=1,N 

P(I)%R(1:I)=1 
ENDDO 
DOI=1,N 

PRINT* ，(P(I) % R(J),J=1,1) 
ENDDO 
DOI=1,N 

DEALLOCATE(P(I) % R) 
ENDDO 
END 


程序 运行 结果 如 图 12. 14 所 示 。 


1 
1 


Press any key to continue 


图 12.14 例 12-9 运行 结果 
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12.S 指针 与 链表 


指针 重要 的 用 途 之 一 是 使 得 数据 在 计算 机 中 可 以 按 链接 方式 存储 ,而 在 链接 存储 结构 
中 ,最 简单 的 是 链表 。 本 节 将 介绍 链表 的 一 些 基 本 知识 。 

链表 是 一 种 常见 的 、 重 要 的 动态 数据 结构 , 它 可 以 根据 需要 开辟 内 存单 元 。 最 简单 的 一 
种 链表 ( 单 癌 链表) 结构 如 图 12. 15 所 示 。 


HH 


图 12.15 单 向 链表 结构 


链表 有 一 个 “ 头 指 针 ” 变 量 , 图 12. 15 中 以 HEAD 表示, 它 指向 链表 中 的 第 一 个 结 点 。 
链表 中 每 个 结 点 都 应 包括 两 部 分 内 容 , 即 用 户 宕 要 的 实际 数据 和 指针 。 数 据 可 以 包含 多 个 
数据 项 。 指 针 的 作用 是 指 癌 下 一 个 结 操 ,从 而 环 环 相 扣 ,构成 链表 。 从 图 中 可 以 看 出 ， 
HEAD 指 回 第 一 个 绪 点 ; 第 一 个 结 点 义 指 问 第 二 个 结 护 ，*…… ;和 且 到 最 后 一 个 结 点 ,该 结扎 
指针 不 青 指向 其 他 结 点 , 称 为 空 指针 ,这 一 结 点 称 为 “ 表 尾 ”, 链 表 到 此 结束 。 

可 以 看 出 ,链表 中 各 结 点 在 内 存单 元 中 可 以 不 是 连续 存放 的 。 要 找 某 一 结 点 ,只 须 先 找 
到 上 一 个 结 扣 ,根据 它 提 供 的 指针 来 查找 到 下 一 个 结 扣 。 因 此 链表 要 提供 “ 头 指针 ”HEAD， 
否则 整个 链表 者 无 法 访问 。 链 表 如 同一 条 铁 链 ,一 环 扣 一 环 ,中 间 不 能 断 开 。 只 要 知道 头 指 
针 ,就 能 找到 第 一 个 和 点 ,然后 顺序 找到 每 一 个 结 操 。 

可 以 看 出 ,链表 这 种 数据 结构 必须 利用 指针 变量 才能 实现 环 环 相 扣 的 要 求 。 即 一 个 缠 
扩 中 应 包含 一 个 指针 变量 成 员 , 用 它 指 癌 下 一 个 结 点 。 前 面 介绍 了 派生 类 型 和 结构 体 , 它 包 
含 右 干 成 员 , 这 些 成 员 可 以 是 5 种 基本 数据 类 型 .数组 类 型 ,也 可 以 是 指针 类 型 。 这 个 指针 
类 型 可 以 指 丫 其 他 派生 类 型 数据 ,也 可 以 指 癌 它 所 在 的 派生 类 型 数据 ,因此 结 点 可 以 用 派生 
类 型 和 结构 体 来 实现 。 


12.5.1 结 点 的 定义 


结 点 是 存放 数据 的 基本 单位 ,前 面 学 习 的 数组 中 的 每 一 个 元 素 都 可 以 看 作 一 个 结 点 ,这 
是 一 类 最 简单 的 结 点 。 

复杂 的 结 点 包含 多 种 类 型 的 数据 ,一 般 定义 为 一 个 派生 类 型 数据 。 定 义 的 一 般 格式 
如 下 : 


TYPE NODE 
用 户 数 据 成 员 定 义 
TYPE( NODE), POINTER: : NEXT 
END TYPE 
具有 这 种 派生 类 型 的 结构 体 变量 可 以 作为 一 个 结 点 。NEXT 是 成 员 名 , 它 是 指针 类 
型 ,指向 TYPE(NODE) 派 生 类 型 。 用 这 种 方法 可 以 建立 链表 。 
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例如 : 
TYPE NODE 
INTEGER NUM 
REAL SCORE 
TYPE( NODE), POINTER.:. NEXT 
如 图 12. 16 所 示 ,其 中 每 一 个 结 点 都 属于 TYPE(NODE) 类 型 , 它 的 成 员 NEXT 存放 


到 前 一 个 结 点 的 成 员 NEXT 中 即 可 。 


图 12.16 链表 结构 


需要 注意 的 是 ,这 里 只 是 定义 了 一 个 TYPE(NODE) 派 生 类 型 ,并 未 实际 分 配 存 储 空 
间 。 链 表 是 动态 进行 存储 空间 分 配 的 , 即 在 需要 的 时 候 才 开辟 一 个 结 点 的 存储 空间 。 利 用 
ALLOCATE 函数 来 配置 内 存 空间 。 

有 了 以 上 的 初步 认识 后 ,就 可 以 对 链表 进行 操作 了 。 和 链表 的 基本 操作 包括 建立 链表 ,、 插 
人 或 删除 链表 中 的 一 个 结 点 、 输 出 链表 等 。 


12.5.2 链表 的 基本 操作 


1. 建立 和 输出 链表 

在 程序 中 要 使 用 链表 ,首先 要 建立 链表 。 建 立 链表 是 指 从 无 到 有 地 建立 起 一 个 链表 , 即 
一 个 个 地 输入 各 结 点 数据 ,并 建立 起 前 后 相 链 的 关系 。 这 里 通过 一 个 例子 来 说 明 如 何 建立 

【 例 12-10】 编写 程序 ,建立 有 5 名 学 生 数据 的 单项 链表 ,并 输出 。 

分 析 : 为 了 便于 理解 ,假设 链表 结 点 仅 包含 一 个 数据 项 NUM 和 一 个 指针 项 NEXT。 

设 两 个 指针 变量 HEAD.P, 它 们 都 指向 派生 类 型 数据 。 首 先 将 HEAD 置 空 ,这 是 链表 
为 “ 空 ” 时 的 情况 ,以 后 每 增加 一 个 结 点 时 就 使 HEAD 指向 该 结 点 。 用 ALLOCATE 函数 开 
辟 一 个 结 点 ,并 使 P 指向 它 。 然 后 从 键盘 输入 一 个 学 生 的 数据 给 P 所 指向 的 结 点 。 这 里 约 
定 学 号 不 为 去 ,如果 输入 的 学 号 为 0, 则 表示 建立 链表 的 过 程 结 束 , 该 结 点 不 被 连接 到 链 
表 中 。 

如 果 输 入 的 P%NUM 不 等 于 0,HEAD=>P, 使 HEAD 指向 新 开辟 的 结 点 即 第 一 个 结 
点 ,建立 了 有 一 个 结 点 的 链表 。 然 后 再 开辟 另 一 个 结 点 并 使 P 指向 它 , 接 着 输入 该 结 点 的 
数据 。 如 果 输 入 的 P%NUM 关 0, 则 在 第 一 个 结 点 前 链 入 第 2 个 结 点 , 令 P%NEXT== 
HEAD, 将 原 链 表 结 点 指针 HEAD 赋予 指针 了 的 NEXT 项 ,建立 链接 关系 ,后 令 HEAD 王 > 
P, 使 HEAD 再 指 回 新 结 点 ,建立 了 具有 两 个 结 点 的 链表 。 重 复 如 上 操作 ,再 开辟 另 一 个 结 
点 并 使 P 指向 它 ,并 输入 该 结 点 的 数据 , 令 P%NEXT=> HEAD, 将 第 3 个 结 点 连接 到 第 2 
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个 结 点 之 前 ,并 令 HEAD=> 了 ,使 HEAD 再 指向 新 结 点 ,为 建立 下 一 个 结 点 做 准备 。 建 立 
链表 过 程 如 图 12. 17 所 示 。 


图 12.17 例 12-10 建立 链表 过 程 


以 此 类 推 ,建立 第 4 个 结 点 和 第 5 个 结 点 。 开 辟 第 6 个 新 结 点 后 ,如 果 输 入 P%NUM= 
0, 则 不 再 执行 循环 ,这 个 新 结 点 不 被 连接 到 链表 中 。 建 立 链 表 过 程 到 此 结束 。 

链表 输出 指 将 链表 中 各 结 点 的 数据 依次 输出 ,这 一 问题 比较 容易 处 理 。 首 先知 道 头 指 
针 HEAD 的 值 , 设 一 个 指针 变量 P, 令 P= 二 > HEAD, 使 P 指 问 第 一 个 结 点 ,输出 P 所 指 的 结 
点 。 然 后 令 P= 二 > P%NEXT, 使 P 后 移 一 个 结 点 再 输出 ,直到 链表 的 结束 。 

程序 编写 如 下 : 


TYPE NODE 
INTEGER NUM 
TYPE( NODE), POINTER: : NEXT 
END TYPE 
TYPE( NODE), POINTER: : HEAD,P 
NULLIFY (HEAD) 
PRINT *,' 请 输入 数据 ,输入 0 结束 : ' 
ALLOCATE (P) 
READ * ,P % NUM 
NULLIFY(P % NEXT) 
DO WHILE(P % NUM/ = 0) 
PS% NEXT = > HEAD 
HEAD=>P 
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ALLOCATE(P) 
READ x ,PS% NUM 
ENDDO 
P = > HEAD 
DO WHILE( ASSOCIATED( P)) 
PRINT* , PS% NUM 
P=> PMEXT 
ENDDO 
END 


程序 运行 结果 如 图 12. 18 所 示 。 
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图 12.18 例 12-10 运行 结果 


程序 中 链表 的 建立 是 逆序 的 , 即 通过 从 表 头 插入 结 点 来 创建 链表 ,因此 在 输出 时 是 从 最 
后 一 个 结 点 开始 ,到 第 一 个 结 点 结束 。 

【 例 12-11】 依据 结 点 输入 顺序 建立 链表 , 即 通 过 从 表 头 后 依次 链 入 结 点 来 创建 链表 。 

分 析 : 设 三 个 指针 变量 HEAD、P1、P2, 它 们 都 指 问 派生 类 型 数据 。 首 先 将 HEAD 置 
空 ,这 是 链表 为 “ 空 ”时 的 情况 ,增加 第 一 个 结 点 时 使 HEAD 指 问 该 结 点 。 用 ALLOCATE 
图 数 开 辟 一 个 结 点 ,并 使 Pl1、P2 指向 它 。 然 后 从 键盘 输入 一 个 学 生 的 数据 给 Pl 所 指 问 的 
结 点 。 同 样 约定 学 号 不 为 零 , 如 果 输 入 的 学 号 为 0, 则 表示 建立 链表 的 过 程 结 束 , 该 结 点 不 
锌 连接 到 链表 中 ，。 

如 果 输 入 的 P1%NUM 不 等 于 0, 且 输入 的 是 第 1 个 结 点 数据 时 , 令 HEAD= 二 > P1, 使 
HEAD 指 癌 新 开放 的 结 点 即 第 1 个 结 点 ,同时 使 P2 也 指 癌 该 市 尽 。 人 然后 再 开 尽 一 个 新 结 
点 并 使 Pl 指向 它 , 接 着 输入 该 结 点 的 数据 。 如 果 输 入 的 P1%NUM 和 天 0, 则 连 和 人 第 2 个 结 
点 , 令 P2%NEXT==> P1, 使 第 1 个 结 点 的 NEXT 成 员 指 向 第 2 个 结 点 ,连接 完成 。 接 着 令 
P2 二 > Pl1, 也 就 是 使 P2 指向 刚才 建立 的 第 2 个 结 点 。 重 复 如 上 操作 ,再 开辟 第 3 个 结 点 并 
使 Pl 指向 它 , 输 入 该 结 点 的 数据 , 令 P2%NEXT= 二 > P1, 将 第 3 个 结 点 连接 到 第 2 个 结 点 之 
后 ,并 使 P2 二 > P1, 为 建立 下 一 个 结 点 做 准备 。 建 立 链表 过 程 如 图 12. 19 所 示 。 

以 此 类 推 ,建立 第 4 个 结 点 和 第 5 个 结 点 。 开 辟 第 6 个 新 结 点 后 ,如 果 输 入 P1%NUM= 
0, 不 再 执行 循环 ,这 个 新 结 点 不 被 连接 到 链表 中 。 此 时 将 P2%NEXT 置 空 ,建立 链表 过 程 
到 此 结束 ,Pl 最 后 所 指 的 节点 没有 被 连 人 链表 ,第 5 个 结 点 的 NEXT 成 员 置 空 ,不 指 癌 任 
何 结 点 。 
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HEAD 


HEAD 


HEAD 


图 12.19 例 12-11 建立 链表 过 程 


程序 编写 如 下 : 


TYPE NODE 
INTEGER NUM 
TYPE( NODE), POINTER: : NEXT 
END TYPE 
TYPE( NODE), POINTER: : HEAD, P1, P2 
INTEGER.. N=0 
NULLIFY( HEAD) 
PRINT x*，,' 请 输入 数据 ,输入 0 结束 : ， 
ALLOCATE ( P1) 
P2=> Pl 
READ * ,Pl $% NUM 
DO WHILE(P1 % NUM/ = 0) 


N=N+1 
IF(N== 1) THEN 
HEAD = > P1 
ELSE 
P2 % NEXT = > P1 
ENDIF 


P2=> Pl 


RLLOCRTE(P1) 
READ * ,Pl $% NUM 
ENDDO 
NULLIFY(P2 % NEXT) 
Pl = > HEAD 


DO WHILE( ASSOCIATED( P1)) 


PRINT * , Pl % NUM 
P1 => P1 % NEXT 
ENDDO 
END 


程序 运行 结果 如 图 12. 20 所 示 。 


半日 加 
1802 
i1803 
1004 
二 日 四 


IPress any key to continue 


图 12. 20 例 12-11 运行 关 
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结果 


程序 中 链表 的 建立 是 按 输 入 结 点 的 顺序 依次 建立 的 。 


2. 插入 结 点 
用 P0 表示 待 插入 结 点 
ALLOCATE ( PO) 


READ * ,PO % NUM 
NULLIFY (PO % NEXT) 


将 一 个 结 扣 插入 到 链表 中 可 以 分 为 以 下 四 种 情况 。 


(1) 链表 为 空 


如 果 链 表 为 空 表 , 即 头 指针 HEAD 为 空 


HEAD= > PO 


(2) 在 表 涉 前 插入 


要 在 表 头 结 点 前 插入 新 广 扣 


PO 要 NEAT = > HEAD 
HEAD= > PO 


(3) 在 表 中 某 结 点 后 插入 


链表 头 指针 为 HEAD, 指 针 P 指向 链表 中 某 


入 到 PP 结 点 之 后 ,可 执行 下 面 的 赋值 语句 实现 插入 。 


PO 和 当 NEXT=> PS NEXT 


,首先 执行 以 下 语句 创建 结 点 P0: 


指针 ,可 执行 以 下 赋值 语句 实现 插入 。 


,可 执行 下 面 赋值 语句 实现 搬入。 


. 结 点 (不 是 表 尾 结 点 ) ,要 将 新 结 点 P0 插 
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PS% NEXT=> PO 


(4) 在 表 尾 插入 

链表 头 指 针 为 HEAD, 指 针 P 指 癌 链表 表 尾 结 点 ,要 将 新 结 点 P0 插入 到 PP 结 点 之 后 ， 
可 执行 下 面 的 赋值 语句 实现 插入 。 

PS NEXT= > PO 

【 例 12-12】 设 已 有 一 个 按 成 员 项 NUM 由 小 到 大 顺序 排列 的 链表 ,输入 一 个 新 结 点 ， 
插入 到 已 有 链表 中 ,插入 后 仍 满足 按 成 员 项 NUM 由 小 到 大 排列 的 顺序 。 编 写 插 入 结 点 子 


SUBROUTINE INSERT(HEAD, PO) 
TYPE( NODE ), POINTER. .HEAD,P,P0,P1 
IF(. NOT. ASSOCIATED( HEAD) ) THEN 
HEAD= > BO 
ELSE IF(PO $% NUM < HEAD $ NUM) THEN 
PO % NEXT = > HEAD 
HEMAD= > PO 
ELSE 
Pl = > HEAD 
DO WHILE(ASSOCIATED( P1). AND. Pl % NUM < PO % NUM) 
P=>Pl 
Pl => Pl % NEXAT 
ENDDO 
IF(ASSOCIATED(P1)) THEN 
PO % NEXT = > P % NEXT 
PE NEXT=> PO 
ELSE 
PS% NEXT=> PO 
ENDIF 
ENDIF 
END SUBROUTINE INSERT 


3. 朋 除 结 点 

已 有 一 个 链表 ,希望 删除 其 中 某 个 结 点 ,用 Po 表示 待 删除 结 点 ,可 以 分 为 以 下 两 种 
情况 。 

(1) 删除 表 头 蔬 点 

链表 头 指 针 为 HEAD, 指 针 P0 指 问 表 涉 结 点 ,可 以 执行 以 下 语句 实现 删除 。 

HEAD = > PO % NEXT 

(2) 删除 非 表 头绪 点 

链表 头 指 针 为 HEAD ,指针 Po 指 问 竺 删除 结 点 ,P 指针 指 癌 竺 删除 绪 点 PO 的 前 一 个 
结 点 ,可 以 执行 以 下 语句 实现 删除 。 

PS NEXT=» PO NEXT 


【 例 12-13】 设 已 有 一 个 链表 ,输入 要 删除 学 生 信息 的 学 号 ,将 满足 条 件 的 结 点 从 链表 
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中 删除 。 编 写 删除 第 点子 程序 。 


SUBROUTINE DEL( HEAD, NUM) 
TYPE( NODE), POINTER: : HEAD, P,PO 
IF(. NOT. ASSOCIATED( HEAD) ) THEN 
PRINT ¥*， ' 无 学 生 数 据 , 删除 失败 .' 
ELSE 
P0 = > HEAD 
DO WHILE( ASSOCIATED( PO). AND. PO % NUM/ = NUM) 
P=>P0 
P0 = > PO % NEXT 
ENDDO 
IF(ASSOCIATED( PO)) THEN 
IF(ASSOCIATED( PO, HEAD) ) THEN 
HEAD = > PO % NEXT 
DEALLOCATE( PO) 
ELSE 
Pp % NEXT = > PO % NEXT 
DEALLOCATE( PO) 
ENDIF 
PRINT x* ， "删除 : ", NUM 
ELSE 
PRINT x* ，' 找 不 到 该 结 点 ,删除 失败 .' 
ENDIF 
ENDIF 
END SUBROUTINE DEL 


12.5.3 综合 实例 


用 链表 完成 学 生 情 况 的 管理 ,已 知 学 生 情况 包含 姓名 、 学 号 和 一 门 课程 的 成 绩 等 基本 信 
息 。 建 立 允 个 学 生 的 链表 (7 由 键盘 输入 ) ,完成 按 学 号 的 排序 、 插 入 、 查 找 和 删除 等 操作 。 
程序 编写 如 下 : 


MODULE LINK 

TYPE NODE 
INTEGER NUM 
CHARACTER( 10) NRME 
REAL, SCORE 
TYPE( NODE), POINTER: : NEXT 

END TYPE 

CONTAINS 


SUBROUTINE CREAT(HEAD, N) 
TYPE( NODE), POINTER: : HEAD, P1,P2,P 
INTEGER: : I, NUM 
NULLIFY (HEAD) 
PRINT * ，' 请 输入 学 生 基 本 数据 : ， 
DOI=1,N 
ALLOCATE( P1) 
PRINT 10, "输入 第 ", I "个 学 生 的 数据 : " 


214 eo 
FORTRAN 语言 程序 设计 一 一 FORTRANGS5 


PRINT 20, "学 号 :" 
READ * , Pl $%S NUM 
PRINT 20," 姓 名: " 
READ 关 , Pl $% NAME 
PRINT 20, "成 绩 : " 
READ * , Pl % SCORE 
NULLIFY(P1 % NEXT) 
IF{(I == 1) THEN 
HEAD = > Pl1 
ELSE IF(P1 % NUM < HEAD % NUM) THEN 
Pl % NEXT = > HEAD 
HEAD = > Pl1 
ELSE 
P2 = > HEAD 
DO WHILE(P1 % NUM > P2 % NUM. AND. ASSOCIATED( P2)) 
P=> P2 
P2 = > P2 SS NEXT 
ENDDO 
IF(ASSOCIATED( P2)) THEN 
Pl SS NEXT=> PS NEXT 
PS NEXT= > Pl 
ELSE 
PS NEXT = > Pl1 
ENDIF 
ENDIF 
ENDDO 
10 FORMAT(A, I3, 2X, A) 
20 FORMAT(A,\) 
END SUBROUTINE CREAT 


SUBROUTINE OQUTPUT( HEAD, N) 

TYPE( NODE), POINTER:: HEAD,P 

INTEGER.. I 

P=> HEAD 

PRINT 30, "序号 ", "学 号 ", "姓名 ", "成 绩 " 

DOI=1,N 
PRINT 40, I,PS% NUM,P % NAME,P % SCORE 
P=>PS% NEXT 

ENDDO 

30 FORMAT( A4, 2X, A4, 2X, MA8, 2X, A6) 

40 FORMAT( 13, 3X, 14,2X, A8, 2X, F4.1) 

END SUBROUTINE OUTPUT 


SUBROUTINE INSERT(HEAD, N) 

TYPE( NODE), POINTER: : HEAD,P, P0,P1 

PRINT x* ，' 请 输入 待 插 人 学 生 的 基本 数据 : 
ALLOCATE( PO) 
PRINT 20," 姓 名: " 
READ * , PO % NAME 
PRINT 20, "学 号 : " 
READ * , PO $% NUM 
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PRINT 20," 成 线 :" 
READ * , PO % SCORE 
IF(. NOT. ASSOCIATED( HEAD) ) THEN 
HEAD= > PO 
ELSE IF(PO % NUM < HEAMAD % NUM) THEN 
PO % NEXT = > HEAD 
HEAD= > PO 
ELSE 
Pl1 = > HEAD 
DO WHILE( ASSOCIATED(P1). AND. Pl1 % NUM < PO % NUM) 
P=>P1 
Pl = > Pl % NEXT 
ENDDO 
IF(ASSOCIATED(P1)) THEN 
PO NEXT=> PS NEXT 
PS% NEXT=> PO 
ELSE 
PS% NEXT=> PO0 
ENDIF 
ENDIF 
N=N+1 
20 FORMAT(A,\) 
END SUBROUTINE INSERT 


SUBROUTINE DEL( HEAD, N) 
TYPE( NODE), POINTER: : HEAD, P,P0 
PRINT x*,' 请 输入 得 删除 学 生 的 学 号 : ， 
READ * ,NUM 
IF(. NOT. ASSOCIATED( HEAD) ) THEN 
PRINT ¥*， ' 无 学 生 数 据 , 删除 失 败 ." 
ELSE 
P0 = > HEAD 
DO WHILE( ASSOCIATED( PO). AND. PO % NUM/ = NUM) 
P=> PO 
PO = > PO % NEXT 
ENDDO 
IF(ASSOCIATED( PO)) THEN 
IF(ASSOCIATED( PO, HEAD) ) THEN 
HEAD = > PO % NEXT 
DEALLOCATE ( PO ) 
ELSE 
PS NEXT= > PO SS NEXT 
DEALLOCATE (PO) 
ENDIF 
PRINT * ，' 删 除 : ', NOM, "的 数据 ." 
N= N-—1 
ELSE 
PRINT * ,，' 查 无 些 人 ,删除 失败 .' 
ENDIF 
ENDIF 
END SUBROUTINE DEL 
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SUBROUTINE INDEX]1 (HEAD) 
TYPE( NODE), POINTER: : HEAD, P,P1 
INTEGER NUM 
PRINT x* ，' 请 输入 待 查找 学 生 的 学 号 : ， 
READ * ，NUM 
P= > HEAD 
DO WHILE( ASSOCIATED(P)) 
IF(P% NUM== NUM) THEN 
EXIT 
ELSE 
P=>P%NEXT 
ENDIF 
ENDDO 
IF(. NOT. ASSOCIATED(P)) THEN 
PRINT x ，' 查 无 此 人 !' 
ELSE 
PRINT 30, "序号 ", "学 号 ", "姓名 ", "成 绩 " 
PRINT 40, I,PS% NUM,P % NAME,P % SCORE 
ENDIF 
30 FORMAT( A4, 2X, A4, 2X, A8, 2X, A6) 
40 FORMAT( I3, 3X, I4, 2X, A8, 2X, F4.1) 
END SUBROUTINE INDEX1 
END MODULE LINK 


PROGRAM EXAM10 

USE LINK 

TYPE ( NODE), POINTER: : HEAD,P 
INTEGER N, NUM, KEY 


DO 

PRINT * 

PRINT x ," 选择 菜单 " 

PRINT ¥ ,0 " 
PRINT * 

PRINT ¥*," 1 一 输入 学 生 数 据 ",” 2 一 输出 学 生 数 据 " 
PRINT *,"” 3 一 添加 学 生 数据 ","” 4 一 删除 学 生 数 据 " 
PRINT x ,"” 5 一 查询 学 生 数 据 ","” 6 一 退出 " 

PRINT xx " 
PRINT * 

PRINT '(A, \)', "请 输入 选择 操作 的 序号 :" 

READ * , KEY 


IF(KEY == 1) THEN 
PRINT x , "请 输入 学 生 人 数 : " 
RERAD x ,N 
CALL CREAT(HEAD, N) 
CALL OUTPUT( HEAD, N) 
ELSE IF(KEY == 2) THEN 
CALL OUTPUT( HEAD, N) 
ELSE IF(KEY == 3) THEN 


CRLL INSERT(HEAD, N) 
ELSE IF(KEY == 4) THEN 


CALL DEL( HEAD, N) 
ELSE IF(KEY == 5) THEN 
CALL INDEX] (HEAD) 


习 


1. 下 面 的 变量 在 目前 的 PC 中 分 别 会 占用 多 少 内 存 空 间 ? 


INTEGER (KIND = 4)::A 
REAL(KIND = 4)::B 
REAL(KIND = 8)::C 
CHARACTER( LEN = 10) : :STR 
INTEGER(KIND = 4), POINTER ::PA 
REAL( KIND = 4), POINTER : :PB 
REAL(KIND = 8), POINTER::C 
CHARACTER( LEN = 10), POINTER: : PSTR 
TYPE STUDENT 

INTEGER COMPUTER, ENGLISH, MATH 
TYPE(STUDENT):: S 
TYPE( STUDENT), POINTER: : PS 


2. 写 出 下 列 程序 段 的 运行 结果 。 
(1) INTEGER, TARGET :: A=1 
INTEGER, TARGET :: B=2 
INTEGER, TARGET :: C=3 
INTEGER, POINTER :: P 
P=>A 
PRINT x* ,P 
P=>B 
PRINTx ,P 
P=>C 
PRINT x ,P 
P=5 
PRINT x ,C 
END 


(2) IMPLICIT NONE 
INTEGER, POINTER:: S(:,:) 
INTEGER, TAGTER: : A(2,3) 
DATA A/1,2,3,4,5,6/ 
S=>h 
S(1:2,1:3:2)=9 
PRINT 10,A 


让 


12 
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10 FORMAT(1X, 613) 


(3) IMPLICIT NONE 
INTEGER, POINTER:: S(:,:) 
INTEGER, TAGER: : W(5,5) 
INTEGER I,J,X(5) 
DATA W/5*1,5*2,5x*x3,5*4,5*5/ 
DATA X/5 * 10/ 
S= > 出 
DOI=1,5 
S(1:I,1I:5) = X(I) + W(I,I) 
ENDDO 
PRINT 10, ((W(I,J),J=1,5),I=1,5) 
10 FORMAT( 1X, 513) 


i 
3. 输入 10 个 数 , 将 其 中 最 小 的 数 与 第 一 个 数 对 换 , 最 大 的 数 与 最 后 一 个 数 对 换 。 用 指 
针 方 法 处 理 。 


4. 建立 一 个 链表 ,每 个 结 点 包括 学 号 和 平均 成 绩 。 要 求 链 表 包 括 8 个 结 点 ,从 键盘 办 
入 绪 氮 中 的 有 效 数 据 ,然后 把 这 些 搞 点 的 数据 打印 输出 。 

5. 已 有 < 两 个 链表 ,每 个 链表 中 的 结 点 包括 和 学 号 和 成 绩 。 要 求 把 两 个 链表 合并 , 按 
学 号 升序 排列 。 

6. 建立 一 个 链表 ,每 个 结 点 包括 学 号 、 性 别 和 年 龄 。 输 入 一 个 年 龄 ,如 果 链 表 中 的 结 点 
所 包含 的 年 龄 等 于 此 年 龄 , 则 将 此 结 点 删 去 。 


模块 、 接 口 与 重 载 


教学 目标 : 

。 掌握 模块 的 定义 方法 ; 

。 学 会 使 用 USE 语 身 ; 

。 掌握 接口 界面 块 定义 格式 ; 

。 学 会 使 用 接口 界面 块 ; 

。 掌握 函数 和 子 例 行 程序 的 重 载 方法 ; 
。 了 解 操 作 符 的 重 载 方法 。 


为 适应 面向 对 象 程序 设计 方法 ,FORTRAN 程序 设计 语言 自 FORTRAN90 版 本 开始 
推出 一 系列 面 对 对 和 象 程序 设计 的 功能 ,其 中 模块 (MODULE) ,接口 (INTERFACE) 和 重 载 
(OVERLOAD) 是 FORTRAN 中 添加 的 最 为 重要 的 功能 。 模 块 的 作用 主要 体现 在 把 具有 
相关 功能 的 图 数 及 数据 封装 在 一 起 以 及 特性 继承 .操作 超载 等 面向 对 象 的 操作 。 

目前 , 面 问 对 象 程序 设计 方法 方兴未艾 , 文 持 面 问 对 象 设 计 方 法 、 体 现 面 问 对象 设计 特 
色 , 已 经 成 为 新 一 代 程 序 设计 语言 不 可 缺少 的 内 容 。 面 品 对 象 的 程序 设计 方法 直接 强调 以 
问题 域 中 的 事物 为 中 心 来 思考 问题 认识 问题 ,并 根据 这 些 事物 的 本 质 特 征 , 把 它们 表示 为 
系统 中 的 对 象 。 面 器 对 象 的 程序 设计 方法 比 面向 过 程 的 结构 化 程序 设计 方法 更 结构 化 、 更 
模块 化 、 更 抽象 。 一 般 认 为 ,结构 化 程序 设计 强调 了 功能 抽象 和 模块 化 ,将 解决 问题 看 作 是 
一 个 处 理 过 程 ; 而 面 癌 对 象 的 程序 设计 综合 了 功能 抽象 和 数据 抽象 ,将 解决 问题 看 作 分 类 
演绎 过 程 。 人 简单 地 说 ,面向 对 象 就 是 在 做 程序 代码 封 波 、 数 据 封 法、 特性 继承 和 操作 重 载 等 
工作 ,这 使 得 程序 更 加 安全 ,可靠 、 高 效 , 易 于 修改 和 维护 。 

封装 的 代码 和 数据 可 以 分 为 两 类 ,一 类 是 可 以 让 大 家 直接 使 用 的 公共 代码 和 数据 , 另 一 
类 是 只 能 在 内 部 使 用 的 私有 代码 和 数据 。 封 淡 后 的 程序 代码 和 数据 比较 安全 ,就 像 银 行内 
的 网 络 管理 系统 和 金库 是 银行 的 私有 资产 ,为 了 安全 ,银行 不 会 把 网 络 管理 系统 和 金库 直接 
向 客户 开放 ,而 只 能 由 银行 内 部 特定 工作 人 员 对 其 进行 操作 。 客 户 上 银行 取 钱 时 ,一 定 要 通 
过 银行 的 服务 途径 (银行 柜台 工作 人 员 和 和 目 动 取款 机 ) 才 能 取 到 钱 。 银 行 的 服务 途径 可 以 看 
成 是 银行 对 外 服务 的 接口 ,这 个 接口 隐 含 了 背后 的 实际 工作 情况 。 俗 话说 “老鼠 生 的 儿子 会 
打 洞 ”, 这 说 明子 代 可 以 从 父辈 那里 可 以 继承 一 些 信 息 。 同 样 , 在 程序 设计 中 ,使 用 本 草 讲 述 
的 内 容 可 以 用 类 似 继承 的 方式 来 重复 使 用 代码 。 总 而 言 之 ,面向 对 象 程序 设计 方法 给 程序 
员 两 个 思考 方向 : 

(1) 为 了 安全 ,有 些 数据 不 应 该 让 外 界 使 用 。 

(2) 经 过 继承 来 重复 使 用 程序 代码 。 
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13.1 模块 的 定义 


模块 定义 的 一 般 格式 为 : 


MODULE 模块 名 
模块 说 明 语 名 
CONTRINS 
模块 子 程序 定义 1 
模块 子 程序 定义 2 


模块 子 程序 定义 
END MODULE 模块 名 


说 明 : 

(1) 模块 的 命名 遵循 标识 符 规则 。 

(2) 模块 说 明 语 句 中 可 声明 符号 和 常量、 变量 、 数 组 、 派 生 类 结构 体 、 结 构 体 数组 接口 界 
面 块 .模块 函数 和 模块 子 例 行 程序 ,这 些 被 声明 的 对 象 可 在 本 模块 范围 内 使 用 ,其 中 夺 有 公 
有 属性 (PUBLIC) 的 对 象 ,也 可 在 模块 外 其 他 程序 单元 中 使 用 。 

(3) 模块 子 程序 定义 必须 安置 在 所 有 说 明 请 句 之 后 的 CONTAINS 语句 和 END 语句 
之 间 ,模块 子 程序 (处 于 模块 内 , 故 称 为 模块 子 程序 , 同 内 部 子 程序 一 样 ,只 是 位 置 不 同 ) 包 括 
模块 函数 和 模块 子 例 行 程序 ,定义 方法 与 第 9 草 的 子 程序 定义 完全 相同 。 

(4) 模块 内 各 子 程序 的 排列 顺序 是 无 序 的 。 

(5) 模块 中 不 允许 出 现 不 属于 任何 一 个 子 程序 单元 的 可 执行 语句 , 即 可 执行 语句 只 能 
出 现在 模块 限 数 和 模块 子 例 行 程序 单元 中 。 

下 面 是 一 些 模块 定义 的 例子 : 

MODULE EXAMPLE] ! 模块 EXAMPLE 专门 用 来 声明 某 些 变量 
PARAMETER (PI= 3.1415926,G= 9.8) ! 声明 两 个 符号 第 量 

INTEGER A,B ! 声明 两 个 整 型 变量 

REAL X1, X2, SHUZU(4, 5) ! 声明 两 个 实 型 变量 和 一 个 实 型 数组 


COMMON A,B ! 声 明 无 名 公用 区 中 的 两 个 实 型 变量 
END MODULE EXAMPLE1 


MODULE EXAMELES ! 该 模块 只 声明 了 一 个 派生 类 型 STUDENT 
IMPLICIT NONE 
TYPE STUDENT 
CHARACTER * 10 NAME 
INTEGER AGE 
REAL SCORE( 5 ) 
END TYPE 
END MODULE, 


MODULE EXAMPLE3 ! 该 模块 声明 数据 类 型 并 定义 模块 子 程序 
USE EXAMPLE2 
! 模块 周 套 定义 ,结果 是 本 模块 继承 了 EXAMPLE2 中 的 所 有 信息 ,因而 本 模块 中 也 有 STUDENT 类 
TYPE( STUDENT) STU 1! 声明 结构 体 STU 
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PUBLIC GREET ! 特 别 声明 子 例 行 程序 的 公有 属性 

PUBLIC 1! 声明 ABC 是 公有 属性 

PRIVATE A ! 声 明 A 是 私有 属性 

INTEGER A,B,C ! 声 明 A 是 私有 整 型 变量 ,B 和 C 是 公有 整 型 变量 
CONTAINS 

SUBROUTINE GREET( ) ! 子 例 行 程序 的 定义 


PRINT x* , 'hello !', STU. NAME 
END SUBROUTINE 
END MODULE 


本 例 中 出 现 了 对 象 的 公有 属性 和 私有 属性 声明 ,具有 公有 属性 的 对 象 除 可 在 本 模块 范 
围 内 使 用 外 ,还 可 被 模块 外 的 程序 单元 使 用 ,具有 私有 属性 的 对 象 只 能 在 模块 范围 内 使 用 。 

公有 属性 声明 的 一 般 格 式 是 : 

PUBLIC 对 象 名 列表 

私有 属性 声明 的 一 般 格式 是 : 

PRIVATE 对 象 名 列表 

上 述 对 象 属性 声明 语句 分 别称 为 公有 语句 和 私有 语句 。 硅 公有 语句 的 对 象 列表 为 空 ， 
则 意味 着 模块 中 所 有 数据 对 象 和 模块 子 程序 对 象 中 除 特 别 说 明 的 外 ,其 他 的 均 具 有 公有 属 
性 。 私 有 语句 中 对 象 列 表 为 空 时 间 理 。 

模块 EXAMPLE3 中 出 现 公 有 请 句 、 私 有 请 名 和 无 对 象 列表 的 公有 请 句 , 则 除 公 有 请 
句 、 私 有 请 句 特 别 声 明 的 对 象 外 ,其 余 均 为 公有 属性 。 因 此 ,只 有 变量 A 是 私有 属性 ,其 余 
的 变量 B 和 C、 结 构 体 STU 和 子 程序 GREET 皆 为 公有 属性 。 


13.2 USE 语 各 
模块 和 子 程序 一 样 ,不 能 独立 运行 ,只 能 被 主 程序 单元 和 其 他 单元 调用 。USE 语句 可 


以 在 主 调 程序 单元 调用 已 定义 好 的 模块 单元 。 
USE 语句 的 格式 是 ， 


USE 模块 名 
或 

USE 模块 名 ,别名 => 数据 对 象 名 或 子 程序 名 
或 


USE 模块 名 ,ONLY: 数据 对 象 名 或 子 程序 名 列表 


其 中 “USE 模块 名 ”是 最 简单 形式 ,13. 1 节 中 模块 EXAMPLE3 就 使 用 了 这 种 形式 。 
但 当 被 引用 的 模块 或 模块 公有 数据 对 象 . 子 程序 名 称 比 较 长 或 被 引用 的 多 个 模块 中 含有 相 
同名 字 时 ,“USE 模块 名 ,别名 = 二 > 数据 对 象 名 或 子 程 序 名 ”方式 就 比较 方便 。 当 只 是 对 模 
块 中 的 个 别 数据 对 象 或 子 程序 进行 引用 时 ,ONLY 方式 比较 适合 ,也 可 以 在 该 方式 下 使 用 
别名 调用 方式 。 
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【 例 13-1】 对 于 13. 1 节 已 定义 的 三 个 模块 ,编写 三 个 简单 的 主 程序 调用 它们 ,分别 使 


用 三 种 调用 方法 ， 
下 面 分 别 采用 以 上 三 种 方法 编写 程序 。 
主 程序 ] 


使 用 “USE 模块 名 列表 ”方式 调用 模块 EXAMPLE3。 输入 学 生 姓 名 ,调用 该 模块 中 的 
子 例 行 程序 GREET( ) ,对 数据 对 象 B.C 赋值 并 打印 输出 。 


PROGRAM EXAM13 1 1 
USE EXAMPLE3 
READ * ,STU. NAME 
CALL GREET 
B=2 
B=5 
PRINT x* ,B,C 

FND 


主 程序 1 的 运行 结果 如 图 13. 1 所 示 。 

程序 中 只 使 用 了 模块 EXAMPLE3, 因 模块 EXAMPLE3 中 已 调用 模块 EXAMPLE2， 
故 无 须 在 程序 中 再 调用 它 。 当 然 , 主 调 程序 单元 也 可 以 调用 一 个 模块 而 不 使 用 它 。 

主 程序 2: 

使 用 “USE 模块 名 ,别名 三 > 数据 对 象 名 或 子 程序 名 ?方式 调用 模块 EXAMPLE1 和 模 
块 EXAMPLE3。 别 名 调用 该 模块 中 的 数据 对 象 A 和 B。A 和 B 在 两 个 模块 中 均 被 声明 
过 ,在 主 程序 调用 时 存在 名 称 冲 突 ,必须 对 起 冲突 的 数据 对 象 或 子 程序 名 进行 别名 使 用 。 

PROGRAM EXAM13 1 2 

! 在 主 程序 中 以 别名 A 和 Bl 使 用 EXAMPLE1 中 的 A 和 B 

USE EXAMPLEl1, Al =>A, Bl1l=>B 

USE EXAMPLE3 

Al = 35 

Bl = 27 

B= Al+ Bl 1B 是 EXAMPLE3 中 的 3B 不 再 与 EXAMPLE1 中 的 B 溃 突 

PRINTx¥x , Al, Bl, B 

END 


主 程序 2 的 运行 结果 如 图 13. 2 所 示 。 


图 13.1 例 13-1 主 程序 1 运行 结果 图 13.2 例 13-1 主 程序 2 运行 结果 


主 程序 3: 
使 用 ONLY 方式 调用 模块 EXAMPLE1 中 的 数据 对 象 A 和 B, 以 ONLY 和 别名 调用 
的 组 合 方式 调用 模块 EXAMPLE3 中 数据 对 象 B, 并 对 它们 操作 后 输出 。 
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PROGRAM EXAM13 1 3 

USE EXRMPLE1 ONLY :A,B 
USE EXAMPLE3, ONLY:B1 =>B 
A= 20 

B= 35 

Bl=A+B 

PRINT * ,A, B, Bl 

END 


主 程序 3 的 运行 结果 如 图 13. 3 所 示 。 


13.3 例 13-1 主 程序 3 运行 结果 


【 例 13-2】 使 用 模块 知识 ,编写 求解 加 面积 和 周 长 的 程序 。 

分 析 : 将 加 面积 函数 子 程序 和 周 长 消 数 子 程序 放 在 模块 中 作为 模块 函数 子 程序 ,通过 
主 程序 调用 模块 实现 对 模块 困 数 的 调用 ,完成 面积 计算 。 

程序 编写 如 下 : 

模块 : 


MODULE CIRCLE 
PARAMETER( PI = 3.14159) 
PRIVATE PI 

ONTAINS 

FUNCTION ZHOUCHANG R(R) 
ZHOUCHANG R= 2*x* PIx*R 
END FUNCTION 

FUNCTION AREA R(R) 
AREA R= PIXxRxR 

END FUNCTION 

END MODULE 


主 程序 : 


PROGRAM EXAM13 2 

USE CIRCLE 

REAL R, L, AREA 

READ* , R 

L = ZHOUCHANG R(R) 

AREA = AREA R(R) 

PRINT* ，' 圆 周 长 是 ',，L,，' 圆 面积 是 '，AREA 
END 


从 上 面 的 例子 可 以 看 出 , 主 调 单元 因 调 用 了 模块 ,就 继承 了 模块 中 公有 属性 的 数据 对 象 
和 子 程序 ,也 就 能 够 直接 使 用 这 些 对 象 。 例 13-2 主 程序 运行 时 输入 5, 其 运行 结果 如 图 13. 4 
所 示 。 


284 一 ce 
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国 管理 员 : "Hiwh\13_1\13_1\Debug\13 2 _1.exe" 


1 .4159 圆 面 积 是 ?8.539?5 


图 13.4 例 13-2 运行 结果 


实际 上 模块 中 的 数据 对 象 也 可 以 作为 不 同 程序 单元 传递 数据 的 工具 ,只 须 把 模块 中 的 
变量 定义 为 全 局 变量 即 可 。 在 模块 定义 中 指定 为 SAVE 的 变量 , 马 能 上 等 同 于 全 局 变量 。 
为 了 实现 这 一 点 ,将 上 面 的 程序 改写 成 如 下 形式 : 


MODULE CIRCLE 
PARAMETER( PI = 3.14159) 
PUBLIC 
REAL, SAVE :: R 1R 是 全 局 变量 
CONTAINS 
FUNCTION ZHOUCHANG _R(R) 
ZHOUCHANG R=2x*xPIxR 
END FUNCTION 
END MODULE 
! 主 程序 单元 


PROGRAM EXAM13 2 2 


USE CIRCLE ! 调 用 继承 模块 CIRCLE 中 的 数据 对 象 和 图 数 子 程序 
REAL L, AREA 

READ*x ,R ! 在 主 程序 中 对 全 局 变量 赋值 

L = ZHOUCHANG R(R) 

CALL DAYIN() 


AREA = AREA R(R) 
PRINT x* ,' 圆 周 长 是 ',L, ' 圆 面积 是 ', AREA 

END 

! 子 例 行 程序 DAYIN(), 修 改 全 局 变量 R 的 值 并 打印 R 
SUBROUTINE DAYIN() 
USE CIRCLE, ONLY: R 1 引用 模块 中 的 数据 对 象 r 
WRITE( * ,x*)R 
R= 10 ! 在 子 例 行 程 序 单 元 中 对 全 局 变量 重新 赋值 
WRITE( 关 ， 关 ) 及 
RETURN 
END SUBROUTINE 

! 用 来 计算 圆 面积 的 函数 子 程序 
FUNCTION AREA R(S) 
USE CIRCLE, ONLY : PI ! 弓 | 用 模块 中 的 数据 对 象 PI 
AREA R=PIx*SxS 
END FUNCTION 


修改 后 的 程序 运行 绪 果 如 图 13. 5 所 示 。 
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5 . 0009000 
半生。 目 目 四 加 旧 


人 31.415908 加 面积 是 。 314.1598 
ls 兰 键 继续 - = sm 


| ! 讶 
| 


图 13.5 例 13-2 修改 后 的 程序 运行 结果 


注意 ,出现 这 种 结果 的 原因 是 周 长 计算 使 用 的 半径 是 5, 而 面积 计算 使 用 的 半径 是 10。 
13.3 接口 界面 块 


FORTRAN 语言 的 接口 界面 块 INTERFACE 是 一 段 程序 模块 ,用 来 说 明 所 要 调用 
图 数 的 参数 类 型 及 返回 值 类 型 等 的 “使 用 接口 ?>。 一 般 情 况 下 ,使 用 外 部 子 程序 时 不 需 
要 特别 说 明 它 们 的 “使 用 接口 ”, 但 是 在 下 面 这 些 情 况 下 ,必须 在 主 调 程序 中 使 用 接口 
界面 块 。 

。 图 数 返 回 值 为 数组 时 ; 

。 图 数 返 回 值 是 长 度 未 知 的 一 个 字符 串 时 

。 困 数 返回 值 为 指针 时 
所 调用 的 子 程序 参数 数目 不 固定 时 ; 
所 调用 的 子 程 序 形 式 参 数 是 一 个 数组 片断 时 ; 
所 调用 的 子 程序 改变 参数 传递 位 置 时 ; 

。 调用 外 部 子 程序 时 使 用 关键 字 实 参 变 元 或 缺 省 的 可 选 变 元 时 ; 

。 所 调用 的 子 程序 扩展 了 赋值 号 的 使 用 范围 时 。 

接口 界面 块 的 定义 和 引入 可 以 很 好 地 在 主 调 程 序 单元 中 描述 外 部 子 程序 的 调用 信息 ， 
保证 了 外 部 子 程序 的 正确 使 用 。 

接口 界面 块 定义 的 一 般 格 式 是 : 

INTERFACE 

接口 界面 块 


END INTERFACE 


例如 : 


INTERFACE 
REAL FUNCTION AREA(R1, R2) 
REAL R1, R2 
END FUNCTION 
SUBROUTINE ZHUANZHI(A, B, M,N) 
INTEGER, A(M,N), B(N,M),I1,J 
END SUBROUTINE 
END INTERFACE 


该 接口 界面 块 声 明了 一 个 外 部 函数 子 程序 AREA 和 一 个 外 部 子 例 行 子 程序 ZHUANZHI 


FORTRAN 语言 程序 设计 一 一 FORTRAN95 
的 接口 界面 。 

接口 界面 块 说 明 : 

(1) 接口 界面 块 以 INTERFACE 表征 开始 ,以 END INTERFACE 为 结束 标记 。 

(2) 接口 界面 块 可 以 出 现在 主 程序 单元 、 模 块 单元 和 外 部 子 程序 单元 的 说 明 部 分 。 

(3) 接口 界面 块 内 可 以 并 列 包 含 硅 干 个 函数 或 子 例 行 子 程序 接口 界面 说 明 。 

(4) 出 现在 接口 界面 块 中 的 语句 只 能 是 有 关 图 数 子 程序 或 子 例 行 子 程序 的 接口 说 明 语 
句 ( 即 FUNCTION 语句. SUBROUTINE 语句 、 图 数 名 、 虚 参 类 型 声明 语句 .END FUNCTION 
语句 和 END SUBROUTINE 语句 ) ,不 允许 有 任何 可 执行 语句 。 

(5) 接口 界面 块 内 的 函数 名 、 子 例 行 程序 名 、 形 参 个 数 、 形 参 类 型 . 形 参 位 置 必 须 与 被 调 
用 的 函数 名 、 子 例 行 程序 名 、 形 参 个 数 、 形 参 类 型 . 形 参 位 置 完全 一 样 ( 形 参 名 称 可 以 不 同 )。 

(6) 接口 界面 块 中 不 允许 出 现 ENTRY、DATA、FORMAT 语句 和 语句 函数 。 

【 例 13-3】 以 了 商 数 子 程 订 的 形式 编程 实现 两 个 一 维 整 型 数组 的 减法 。 

分 析 : 数组 减法 的 结果 依然 是 一 个 数组 ,采用 子 例 行 子 程序 很 容易 实现 ,但 采用 困 数 子 
程序 就 相对 比较 驮 烦 。 函 数 子 程序 的 返回 值 是 图 数 名 , 通 第 只 返回 一 个 值 ,现在 函数 子 程序 
需要 返回 一 个 数组 ,所 以 必须 使 用 接口 界面 块 功 能 。 另 外 在 本 程序 的 编写 中 还 使 用 了 动态 
数组 的 功能 和 实 参 关键 字 改 变 位 置 调用 。 

! 外 部 函数 子 程序 ,对 两 个 一 维 数组 求 差 

FUNCTION SHUZU SUB(A,B,N) 

INTEGER N, A(N),B(N), SHUZU_SUB(N) 1! 再 明 函 数 名 是 一 维 数组 

INTEGER I 

DOI=1,N,1 

SHUZU SUB(I) = A(I) - B(I) 

ENDDO 


RETURN 
END 


! 主 程序 


PROGRAM EXAM13 3 


INTERFACE ! 定 义 接口 界面 块 
FUNCTION SHUZU_ SUB(A, B, N) ! 函数 接口 界面 
INTEGER N, A(N), B(N) ! 虚 参 类 型 说 明 
INTEGER SHUZU_SUB(N) ! 声 明 返 回 值 是 一 维 数组 
END FUNCTION 

END INTERFACE 

INTEGER, ALLOCATABLE::M(:), S(:) ! 动态 数组 

INTEGER K 

PRINT x ， 指定 一 维 数组 的 元 素 个 数 ' 

RERD x , K 

ALLOCATE(M(K), S(K)) ! 给 数组 Ms 开辟 存储 空间 


PRINT*x ,' 输 入 M 数 组 的 数组 元 素 ' 
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READ( * , * )(M(I),I=1,K) ! 给 被 减 数 数组 赋值 

PRINT* ，' 输 入 S$ 数组 的 数组 元 素 ' 

READ( * , ¥* )(S(I),I= 1,K) ! 给 减 数 数 组 赋值 

PRINT * ,' 未 改变 实 参 位 置 是 的 结果 ' 

WRITE( * , * )SHUZU SUB(M, S, K) ! 常规 调用 , 实 参 与 形 参 按 位 置 一 一 对 应 
PRINT x* ， 改变 实 参 位 置 是 的 结果 ' 

WRITE( * , * )SHUZU SUB(N= K,B= M,A= 5S) 1 改变 实 参 位 置 , 按 名 称 关 键 字 对 应 

END 


程序 运行 结果 如 图 13.6 所 示 。 由 于 接口 界面 块 的 特殊 作用 , 实 参 与 形 参 之 间 可 以 按 
照 名 称 建立 传递 关系 ,语句 “WRITE(* ,x*)SHUZU_SUB(N==K,B==M,A=S)” 中 , 实 
参 S 与 形 参 A 共享 同一 片 连续 存储 空间 , 实 参 M 与 形 参 B 共享 同一 片 连续 存储 空间 , 因 
此 完成 的 数组 运算 是 S 一 M。 而 语句 “WRITE( x* ,* )SHUZU SUB(CM,S,K)” 进 行 的 运算 
是 M 一 S。 


国 管理 员 : " AvA13 4\13 A\Debug\13 4.exe" 
| t 四 一 一 ] 加 


指正 一 此 效 组 的 训 系 小 效 
， 输 入 "组 的 数组 元 素 
输入 S 数 组 的 数组 元 素 
未 改变 实 参 位 置 是 的 结果 
交 实 参 位 置 是 的 结果 
清 任意 键 继续 。 。， 


图 13.6 例 13-3 运行 结果 
13.4 重 载 


面向 对 象 的 一 个 重要 特征 就 是 重 载 (OVERLOAD)。 所 谓 重 载 ,从 功能 上 看 ,就 是 使 对 
象 的 功能 超越 原 有 的 限制 ; 从 表现 形式 上 看 ,就 是 在 程序 代码 中 可 以 同时 拥有 多 个 名 称 相 
同 但 是 参数 类 型 .数目 不 同 的 子 程序 和 运算 符 , 这 些 同 名 子 程序 和 运算 符 允 许 其 具有 者 干 不 
同 的 .超出 传统 的 功能 。 


13.4.1 范 数 和 子 例 行 程序 的 重 载 


图 数 和 子 例 行 程序 是 具有 特定 功能 的 一 段 程序 代码 集合 。 一 般 来 说 ,无 论 是 内 部 图 数 
还 是 用 户 编 写 的 子 程 序 , 其 参数 的 数据 类 型 或 子 程序 的 功能 总 存在 一 些 限 制 ,如 内 部 函数 
SQRT(X)、LOG(X) 只 能 对 实 型 数据 进行 操作 。 下 面 通过 定义 模块 PFG 中 的 接口 界面 块 
SQRT 来 突破 内 部 标准 函数 SQRT(X) 关 于 参数 实 型 的 限制 ,使 其 也 能 够 计算 整 型 数据 的 
平方 根 。 

【 例 13-4】 创建 内 部 函数 SQRT(X) 的 重 载 ,使 其 也 能 够 计算 整 型 数据 的 平方 根 。 

分 析 : 这 是 一 个 同名 函数 的 重 载 。 整 型 数据 类 型 只 要 转换 为 实 型 数据 类 型 ,就 可 以 使 
用 内 部 函数 SQRT(X) ,因此 在 子 程序 中 使 用 内 部 图 数 REAL(X), 将 整 型 X 转换 为 实 型 。 
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程序 编写 如 下 : 


MODULE PFG ! 定 义 模 块 PFG 
IMPLICIT NONE 
INTERFRCE SORT :虚拟 图 数 SORT 
MODULE PROCEDURE SORT INT ! 定 义 等 待 选择 的 函数 SQRT_INT 
END INTERFACE 
CONTAINS 
FUNCTION SQRT INT(X) ! 定 义 函数 子 程序 SORT INT 
IMPLICIT NONE 
INTEGER, INTENT( IN): :X ! 定 义 X 是 只 读 属性 参数 ,参数 只 能 从 外 向 内 传递 
REAL SQRT INT ! 因数 返回 值 是 实 型 
SQRT INT = SQRT(REAL(X)) ! 使 用 原 内 部 函数 
END FUNCTION 
END MODULE 


主 程序 1: 


PROGRAM EXAM13 4 

USE PFG ! 调 用 模块 PFG 
PRINT * ,SORT(4.0),SORT(4) 

END 


程序 运行 结果 如 图 13.7 所 示 。 


[| 
管理 员 : “Hi\Wf\13_A\13_4\Debug\13 .EN 属 这 所 


Ee) 加 


图 13.7 例 13-4 运行 结 采 


读者 可 上 机 执行 上 面 的 程序 代码 ,再 将 主 程序 修改 为 下 面 的 主 程序 2, 看 看 结果 有 何 
不 同 。 

主 程序 2: 

PROGRAM EXAM13 4 2 

PRINT * ,SQRT(4.0),SORT(4) 

END 

主 程序 2 没有 调用 模块 PFG, 因 而 没有 平方 根 邹 数 的 重 载 功能 ,不 能 对 整 型 数 进行 运 
算 , 故 在 编 详 时 会 遇 到 如 图 13. 8 所 示 错 误 提 未 。 


星 直 输 出 来 源 (S): 生成 = 至 译 
1 一 一 已 启动 生成 : 项 目 : 13_ 4， 配置 : Debug Win32 -~ 一 ~ 一 四 


12Compiline with Intel (KR) Visual Fortran Compiler XE 13.1.0.149 [IA-32]... 
1231il3 4 1. £90 

12H: WHEAT 4%13 4%1113 4 1. £90 (16): error #362: The data types of the areument 
(s) are invalid. [SQRT] 

lcompilation aborted for H: \wf\13 4%13 4%1113 4 1.£90 [code 1) 


1» 所 


13.8 例 13-4 主 程序 2 编译 时 错误 提示 
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子 程序 重 载 的 一 般 格式 为 ; 
MODULE ”模块 名 


INTERFACE 子 程序 重 载 名 
MODULE PROCEDURE 等待 子 程序 名 1 
MODULE PROCEDURE 等待 子 程序 名 2 
MODULE PROCEDURE 等待 子 程序 名 N 
END INTERFRCE 
CONTRINS 
FUNCTION 或 SUBROUTINE 等待 子 程序 名 1( 形 参 列表 ) 
程序 体 
END FUNCTION 或 SUBROUTINE 
FUNCTION 等 待 汕 数 名 2( 形 参 列 表 ) 


FUNCTION 或 SUBROUTINE 等待 子 程 序 和 名 NWN( 形 参 列表 ) 
程序 体 
END FUNCTION 或 SUBROUTINE 

END MODULE 

说 明 . 

(1) 只 有 位 于 模块 内 的 接口 界面 块 才能 创建 重 载 。 

(2) 重 载 一 般 分 同名 限 数 的 重 载 .同名 子 例 行 程序 的 重 载 和 操作 符 重 载 。 

(3) 在 主 调 单 元 调用 包含 重 载 定义 的 模块 ,可 实现 对 函数 或 子 例 行 程序 重 载 的 使 用 。 

(4) 等 待 子 程序 中 的 变量 一 般 要 声明 成 只 庶 属 性 的 变量 ,其 形式 为 ， 

类 型 说 明 关 键 字 ,INTENT(IN) : :变量 名 列表 

(5) 必须 在 接口 块 中 声明 每 个 等 待 子 程序 ,格式 为 : 

MODULE PROCEDURE 等 待 子 程序 名 

上 面 是 一 个 同名 函数 重 载 的 例子 ,下 面 给 出 一 个 同名 子 例 行程 序 的 重 载 实 例 。 

程序 中 通常 会 遇 到 多 种 类 型 的 数据 ,FORTRAN 语言 中 内 部 数据 类 型 的 输入 输出 都 比 
较 简 单 ,而 数组 数据 的 输入 输出 就 相对 老 开 一 些 。 在 实际 工作 中 ,数组 数据 往往 通过 数据 文 
件 读 入 ,或 读 出 到 某 个 数据 文件 。 下 面 提 供 一 个 将 一 维 数组 或 二 维 数组 输出 到 某 个 指定 文 
件 的 子 例 行 程序 的 重 载 。 

【 例 13-5〗 使 用 同一 个 子 例 行 程序 名 将 一 维 整 型 . 实 型 数组 和 二 维 整 型 \ 实 型 数组 输 
出 到 指定 文件 。 

分 析 : 本 程序 中 需要 四 个 等 待 子 例 行 程序 分 别 把 一 维 整 型 . 实 型 数组 和 二 维 整 型 、 实 型 
数组 输出 到 调用 者 指定 的 数据 文件 。 每 个 子 程序 的 编写 都 十 分 简单 ,将 它们 按 重 载 定 义 形 
式 写 到 模块 ARR _ PUT 中 ,以 子 程序 名 PRINT ARR FILE 进行 调用 。 

模块 程序 单元 编写 如 下 : 

MODULE ARR PUT ! 模 块 ARR PUT 


IMPLICIT NONE 
INTERFACE PRINT ARR FILE ! 虚拟 子 程序 名 称 
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MODULE PROCEDURE PRINT 1 ! 等待 子 程序 PRINT 1 
MODULE PROCEDURE PRINT 2 ! 等待 子 程序 PRINT 2 
MODULE PROCEDURE PRINT 3 ! 等待 子 程序 PRINT 3 
MODULE PROCEDURE PRINT 4 ! 等 待 子 程序 PRINT 4 
END INTERFACE 

CONTAINS 


! 输 出 长 度 为 M 的 一 维 整 型 数组 到 数据 文件 STR1 中 
SUBROUTINE PRINT 1(A,M,STR1) 


INTEGER I ! 定 义 局 部 变量 工 

INTEGER, INTENT(IN):: M,A(M) ! 只 读 属 性 参数 

CHARACTER( * ), INTENT(IN):: STR1 1! 动态 定义 字符 型 变量 STR1 的 长 度 
OPEN(8, FILE = STR1) ! 打 开路 径 为 STR1 的 数据 文件 
WRITE(8,"(<M> 16)") (A(I),I=1,M) ! 向 文件 写 数据 

CLOSE(8) ! 关 闭 打 开 的 文件 8 


END SUBROUTINE 

! 输 出 长 度 为 M 的 一 维 实 型 数组 到 数据 文件 STR1 中 
SUBROUTINE PRINT 2(R,M, STR1 ) 

INTEGER I 

INTEGER, INTENT( IN)::M 

REAL, INTENT(IN).. A(M) 

CHARACTER( * ), INTENT(IN):: STR1 

OPEN(9, FILE = STR1) 

WRITE(9,"(<M> F10.3)") (A(I),I=1,M) 

CLOSE(9) 

END SUBROUTINE 

! 输 出 长 度 为 MxN 的 二 维 整 型 数组 到 数据 文件 STR1 中 
SUBROUTINE PRINT 3(A,M,N,STR1) 

INTEGER I,J 

INTEGER, INTENT(IN):: M,N,A(M,N) 

CHARACTER( * ), INTENT(IN):: STR1 

OPEN(10, FILE = STR1) 

WRITE(10,"(<N> 16)") ((A(I,J},J=1,N),I=1,M) 
CLOSE(10) 

END SUBROUTINE 

! 输 出 长 度 为 MxN 的 二 维 实 型 数组 到 数据 文件 STR1 中 
SUBROUTINE PRINT 4(A,M,N,STR1) 

INTEGER I,J 

INTEGER, INTENT(IN)::M,N 

REAL, INTENT(IN):: A(M,N) 

CHARACTER( * ), INTENT(IN):: STR1 

OPEN(11, FILE = STR1) 

WRITE(11,"(<N> F10.3)") ((A(IJ),J=1,N),I= 1,M) 
CLOSE(11) 

END SUBROUTINE 

END 


现在 编写 一 个 简单 的 主 程序 调用 模块 ,验证 PRINT_ARR_FILE 子 程序 的 重 载 功 能 。 
主 程序 编写 如 下 : 


PROGRAM EXAM13 5 
USE ARR_PUT 
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INTEGER: : A(5) = (/1,2,3,4,5/),B(2,3) = (/1,4,2,5,3,6/) 
REAL: : C(3) = (/2.5,13.2,3.14/) 
REAL::D(2,3) = (/1.0,4.0,2.0,5.0,3.0,6.0/) 
CALL PRINT ARR FILE(A,5, 'E:\SHUJU]1.DAT') 
CALL PRINT ARR FILE(B,2,3, 'E:\SHUJU2. DAT') 
CALL PRINT ARR FILE(C,3, 'E:\SHUJU3.DAT') 
CALL PRINT ARR FILE(D,2,3,'E:\SHUJU4. DAT') 
END 


执行 程序 后 ,在 盘 根 目 录 建 立 了 四 个 数据 文件 shujul. dat、 shuju2. dat、shuju3. dat 
和 shuju2. dat。 打 开 数 据 文件 ,如 图 13.9 所 示 。 


外 shujul - 记事 本 回回 园 | 上 加 上 回 上 四 


文件 到) 编辑 世 ) 格式 @) 查看 帮助 思 误 件 字 ) 乌 焰 区 ) 格式 @) 查看 WM) 各 助人 


本 | 
| 


车 shuju3 一 记事 本 回回 固 轩 shujud 一 记 寻 本 加 加 四 
文件 @) 编辑 EC) 格式 @) 查看 帮助 0 | | 文件 @) 编 得 四 ) 格式 (0) 查看 0 项 助 0 
了 -5 上 13 .200 2.008 
5 .08 


图 13.9 例 13-5 程序 运行 后 形成 的 数据 文件 


13.4.2 赋值 号 重 载 
一 般 只 有 赋值 号 “二 ”两 边 类 型 相同 或 相 容 才能 进行 赋值 操作 。 例 如 , 整 型 数据 可 以 赋 
值 给 整 型 变量 .逻辑 型 变量 和 实 型 变量 ,而 不 能 赋值 给 字符 串 变 量 ,更 不 能 赋值 给 数组 结构 
体 变 量 。 当 然 也 不 能 把 不 存在 的 数据 类 型 赋值 给 某 个 变量 ,例如 FORTRAN95 不 存在 分 
数 ,就 不 能 把 分 数 赋值 给 实 型 变量 。 重 载 功 能 的 引入 可 以 赋予 赋值 号 新 的 意义 。 
赋值 号 重 载 的 一 般 格 式 与 子 程 订 重 载 的 格式 几乎 完全 相同 ,只 是 将 模块 中 的 接口 界面 
块 改 为 : 


INTERFACE ASSIGNMENT( = ) 
MODULE PROCEDURE ”等待 子 程序 名 1 


END INTERFACE, 


需要 注意 的 是 ,在 重 载 赋值 号 时 ,等待 子 程序 的 参数 必须 有 两 个 , 子 程序 的 功能 是 将 其 
中 的 一 个 参数 赋值 给 为 一 个 ,因而 , 待 赋值 的 参数 必须 指定 为 IN 只 读 属 性 ,而 被 赋值 参数 
必须 指定 为 OUT 属性 (由 模块 内 品 外 传递 )。 

【 例 13-6】 重 载 赋值 号 "一 ”允许 将 分 数 赋 值 给 实 型 变量 或 整 型 变量 。 

分 析 : 本 程序 通过 建立 包含 两 个 整 型 成 员 ( 分 子 和 分 母 ) 的 结构 体 类 来 创建 分 数 数据 类 
型 ,然后 将 分 子 与 分 本 的 两 赋值 给 实 型 变量 或 整 型 变量 。 
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模块 程序 编 与 如 下 : 


MODULE FENSHULELIL 
TYPE FENSHU 
INTEGER FENZI 
INTEGER FENMU 
END MODULE, 


MODULE FENSHUFUZHI 
USE FENSHULEI 

INTERFACE ASSIGNMENT( = ) 
MODULE PROCEDURE FS TO R 
MODULE PROCEDURE FS_TO I 

END INTERFACE 

CONTAINS 

SUBROUTINE FS TO R(R,A) 

REAL, INTENT( OUT) : :R 

TYPE (FENSHU), INTENT(IN):: A 
R= REAL(A. FENZI) /REAL(A. FENMU) 
END SUBROUTINE 


SUBROUTINE FS TO I(I,A) 
INTEGER, INTENT(OUT) . : 工 

TYPE (FENSHU), INTENT(IN):: A 
I = A.FENZI/A. FENMU 

END SUBROUTINE 

END 


为 了 查看 结 采 , 主 程 序 编号 如 下 : 


PROGRAM EXAM13 6 
USE FENSHULEI 
USE FENSHUFUZHI 
INTEGER K 

REAL R 

K = FENSHU( 4, 2) 
R= FENSHU(1, 3) 
PRINT * ,K,R 

END 


程序 运行 结果 如 图 13. 10 所 示 。 


4.3 操作 符 重 载 
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! 在 该 模块 中 定义 分 数 类 


! 在 该 模块 中 实现 赋值 号 重 载 
! 调 用 FENSHULEI 模块 


! 声 明 等 待 子 程序 FS_TO_R 


! 声 明 等 待 子 程序 FS_TO _I 


! 实 现 将 分 数 赋值 给 实 型 变量 的 子 程序 


! 将 分 子 分 母 转换 为 实 型 后 相 除 


! 实 现 将 分 数 赋值 给 整 型 变量 的 子 程序 


: 国 管理 员 : "Hi\wf\13_A\13_A\De.. 
2 @.3333333 


请 按 任意 键 继续 - - . 
EF (Gm | 


13.10 例 13-6 运行 结果 


操作 符 能 够 操作 的 操作 数 同样 存在 着 许多 限制 ,如 算数 运算 符 的 操作 数 只 能 是 数值 型 
数据 ,不 能 是 字符 串 和 派生 类 数据 。 操 作 符 重 载 就 是 突破 原 操作 符 不 能 对 某 数 据 类 型 进行 
操作 的 限制 或 创建 新 运算 符 。 操 作 符 重 载 的 一 般 格式 与 子 程序 重 载 的 格式 很 相似 ,只 是 在 
模块 内 使 用 如 下 的 形式 : 
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INTERFACE OPERRTOR( 运 算 符 名 ) 
MODULE PROCEDURE ”等待 子 程序 名 1 


END INTERFACE 


【 例 13-7】 两 个 字符 串通 过 "十 " 运 自 连 接 成 一 个 字符 串 。 


模块 程序 编写 如 下 

MODULE ADD CHAO ! 定 义 模块 ADD_CHAO 

INTERFACE OPERATOR( + ) ! 操 作 符 形式 的 重 载 ,操作 符 为 + 
MODULE PROCEDURE ADD C ! 重 载 的 功能 由 等 待 子 程序 ADD_C 完成 

END INTERFACE 

CONTAINS 


FUNCTION ADD C(STR1, STR2)RESULT( STR3) 

! 说 明了 范 数 子 程序 ADD_C, 由 于 人 返回 值 是 字符 串 , 必须 使 用 RESULT 语句 , 且 指 
! 定 返回 值 的 长 度 

INTEGER, PARAMETER: : NMAX = 20 

CHARACTER( NMAX) STR3 

CHARACTER( x ), INTENT(IN):: STR1,STR2 


STR3 = STR1//STR2 ! 实 际 上 , 重 载 运算 符 " + "就 是 别名 使 用 字符 串 连接 符 
END FUNCTION 
END 


编写 简单 的 主 程序 调用 模块 ,查看 是 人 否 实 现 了 对 运算 从“ 十 ”的 重 载 。 


PROGRAM EXAM13 7 

USE ADD CHAO 

CHARACTER STR]1 x* 10, STR2 * 8, STR3 * 36 
STR1 = "1 am a' 

STR2 = "student 

STR3 = STR1 + STR2 

PRINT * , STR3 

END 


程序 运行 结果 如 图 13. 11 所 示 。 
13.5 应 用 举例 


模块 的 引入 丰富 了 FORTRAN 程序 设计 语言 的 功能 ,为 用 户 提供 了 更 好 的 程序 设计 方 
法 ,提高 了 编写 程序 的 效率 。 

【 例 13-8〗 利用 模块 和 重 载 实现 分 数 的 加 (十 ) 、 减 (一 )、 乘 (x* ) 和 除 (/), 以 及 关系 运 
算 如 大 于 (>) ,小 于 (<) .等 于 (= 一) \ 不 等 于 (/ =) 大 于 等 于 (> 一 ) 和 小 于 等 于 (< 一 ) 。 

分 析 : FORTRAN 语言 不 存在 分 数 这 样 的 数据 类 型 ,需要 建立 用 来 描述 分 数 的 派生 类 
型 。 在 13. 4. 2 节 中 ,已 经 在 模块 FENSHULEI 中 建立 了 描述 分 数 的 类 FENSHU ,在 模块 
FENSHUFUZHI 中 建立 了 分 数 对 实数 和 整数 变量 的 赋值 重 载 , 这 里 可 以 直接 继承 使 用 。 


图 13.11 例 13-7 运行 结果 
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假定 这 项 工作 由 三 个 人 膨 成 ,项 目 主管 制定 各 模块 的 名 称 和 公有 子 程序 的 名 称 , 并 分 配 任 
务 。 项 目 主 管 提 供 派 生 类 FENSHU ,并 完成 分 数 运 算 中 涉及 的 计算 两 个 整数 的 最 大 公约 
数 、 分 数 化 简 及 主 程序 的 编 与 ; 成 员 A 完成 分 数 的 十 .一 \* 和 /运算 ,这 些 功能 放 在 模块 A 
中 ,成员 B 完成 分 数 的 关系 运算 ,这 些 功 能 放 在 模块 B 中 。 现 在 三 个 人 可 同时 开展 编程 


工作 。 


MODULE ZHUGURN 
USE FENSHULEI 
PUBLIC GONGYUESHU, HUAJIAN, PUT 
CONTRINS 

FUNCTION GONGYUESHU( I, J) 


INTEGER, INTENT( IN) :: 1,J 


INTEGER BIG, TEMP, GONGYUESHU 


BIG = MAX(I,J) 
GONGYUESHU = MIN(I,J) 
DO WHILE(GONGYUESHU > 1) 


TEMP = MOD( BIG, GONGYUESHU) 


IF(TEMP == 0)EXIT 
BIG = GONGYUESHU 
GONGYUESHU = TEMP 
ENDDO 

END FUNCTION 


FUNCTION HUAJIAN(A) 


TYPE (FENSHU), INTENT( IN) : :A 


INTEGER B 


TYPE( FENSHU) : : TEMP, HUAJIAN 


! 调 用 模块 FENSHULEI 
! 声 明 是 公有 子 程序 


! 用 轧 转 相 除 法 求 两 个 正 整 数 的 最 大 公约 数 , 该 函数 子 程 序 在 循 
! 环 结构 中 编写 过 ,只 须 稍 加 改造 


! 该 程序 实现 对 分 数 的 化 简 
! 及 是 由 外 部 传递 的 参数 


! 声 明 返 回 值 类 型 是 FENSHU 类 型 


! 计算 分 子 和 分 母 绝 对 值 的 最 大 公约 数 
B = GONGYUESHU (ABS(A. FENZI), ABS(A. FENMU)) 


TEMP. FENZI = A. FENZI/B 
TEMP. FENMU = A. FENMU/B 
HUAJIAN = TEMP 

END FUNCTION 

SUBROUTINE PUT(A) 
TYPE( FENSHU), INTENT( IN)::A 
IF(A.FENMU/ = 1)THEN 


! 图 数 名 不 能 使 用 成 员 , 因 此 使 用 中 间 变 量 TEMP 


! 实 现 分 数 数据 的 笨 出 


WRITE( * ," (2X,'("',13,'/"',13,')')")A. FENZI, A. FENMU 


ELSE, 


WRITE( * , "(2X,13)") A. FENZI 


ENDIF 
END SUBROUTINE 
END MODULE, 


成 员 A 完成 的 模块 程序 单元 如 下 : 


MODULE CHENGYUAN A 
USE FENSHULEI 
USE ZHUGUAN 


! 实 现 分 数 算 数 运算 的 模块 
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PUBLIC OPERATOR( + ), OPERATOR( — ), OPERATOR( * ), OPERATOR(/) 

INTERFACE OPERATOR( + ) ! 加 法 运算 符 重 载 ,具体 由 ADD FENSHU 实现 
MODULE PROCEDURE ADD FENSHU 

END INTERFACE 

INTERFACE OPERATOR( — ) ! 减 法 运算 符 重 载 ,具体 由 MINUS_FENSHU 实现 
MODULE PROCEDURE MINUS FENSHU 

END INTERFACE 

INTERFACE OPERATOR( * ) 1! 乘法 运算 符 重 载 ,具体 由 TIMES FENSHU 实现 
MODULE PROCEDURE TIMES FENSHU 

END INTERFACE 

INTERFACE OPERATOR( /) ! 除法 运算 从重 载 ,具体 由 DIV_FENSHU 实现 
MODULE PROCEDURE DIV FENSHU 

END INTERFACE 

CONTAINS 

FUNCTION ADD FENSHU(A,B) 

TYPE (FENSHU), INTENT( IN): :A,B 

TYPE (FENSHU) ADD FENSHU, TEMP 

TEMP. FENZI = A. FENZI * B. FENMU + A. FENMU * B. FENZI 

TEMP. FENMU = A. FENMU * B. FENMU 

ADD FENSHU = HUAJIAN( TEMP) 

END FUNCTION 


FUNCTION MINUS FENSHU(A,B) 

TYPE (FENSHU), INTENT(IN) : :A,B 

TYPE (FENSHU) MINUS FENSHU, TEMP 

TEMP. FENZI = A. FENZI x B. FENMU — A. FENMU * B. FENZI 
TEMP. FENMU = A. FENMU x B. FENMU 

MINUS_ FENSHU = HUAJIAN( TEMP) 

END FUNCTION 


FUNCTION TIMES FENSHU(A,B) 
TYPE (FENSHU), INTENT( IN): :A,B 
TYPE( FENSHU) TIMES FENSHU, TEMP 
TEMP. FENZI = A. FENZI * B. FENZI 
TEMP,. FENMU = A. FENMU * B. FENMU 
TIMES FENSHU = HUAJIAN(TEMP) 
END FUNCTION 


FUNCTION DIV FENSHU(A, B) 

TYPE (FENSHU), INTENT( IN)::A,B 
TYPE (FENSHU) DIV_FENSHU, TEMP 
TEMP. FENZI = A. FENZI * B. FENMU 
TEMP. FENMU = A. FENMU x B. FENZI 
DIV_ FENSHU = HUAJIAN( TEMP) 


END FUNCTION 
END MODULE 

成 员 B 编写 的 ,实现 分 数 关 系 运算 的 模块 程序 单元 如 下 : 
MODULE CHENGYUAN B ! 实现 分 数 关系 运算 的 模块 


USE ZHUGUAN ! 调 用 ZHUGUAN 模块 
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USE CHENGYUAN_A ! 调 用 CHENGYUAN_A 模块 ,使 用 其 中 的 算术 运算 符 重 载 
USE FENSHUFUZHI 1 调用 FENSHUFUZHI 模块 ,使 用 其 中 的 赋值 号 重 载 
PUBLIC OPERATOR(>), OPERATOR(> = ), OPERATOR(<) 

PUBLIC OPERATOR(< = ), OPERATOR( == ), OPERATOR(/=) 


INTERFACE OPERATOR(>) 
MODULE PROCEDURE BIG_ THAN 
END INTERFACE 

INTERFACE OPERATOR(> = ) 
MODULE PROCEDURE BIG EQUAL 
END INTERFACE 


INTERFACE OPERATOR(<) 
MODULE PROCEDURE SMALL THAN 
END INTERFACE, 


INTERFACE OPERATOR(<= ) 
MODULE PROCEDURE SMALL EQUAL 
END INTERFACE 


INTERFACE OPERATOR( == 
MODULE PROCEDURE EQUAL 
END INTERFACE 


INTERFACE OPERATOR(/ = ) 
MODULE PROCEDURE NOT EQUAL 
END INTERFACE 


CONTAINS 
FUNCTION BIG THAN(A,B) 
TYPE (FENSHU), INTENT( IN): :A,B 
TYPE ( FENSHU) TEMP 
REAL R 
LOGICAL BIG THAN 
TEMP=A—B 
R = TEMP 
IF(R> 0)THEN 

BIG THAN = .TRUE. 
ELSE 

BIG_ THAN = . FALSE. 
ENDIF 
END FUNCTION 


FUNCTION BIG EQUAL(A,B) 

TYPE (FENSHU), INTENT( IN)::A,B 
TYPE (FENSHU) TEMP 

REAL R 

LOGICAL BIG EQUAL 

TEMP = 及 一 了 

R = TEMP 


IF(R< 0)THEN 

BIG EQUAL = .FALSE. 
ELSE 

BIG EQUAL = .TRUE. 
ENDIF 
END FUNCTION 


FUNCTION SMALI, EQUAL(A,B) 
TYPE( FENSHU), INTENT( IN)::A,B 
TYPE( FENSHU) TEMP 
REAL R 
LOGICAL SMALI, EQUAL 
TEMP=A-—B 
R= TEMP 
IF(R> 0)THEN 

SMALL EQUAL = .FALSE. 
ELSE 

SMALIL, EQUAL = . TRUE. 
ENDIF 
END EUNCIJION 


FUNCTION SMALL THAN(A,B) 
TYPE (FENSHU), INTENT(IN)::A,B 
TYPE( FENSHU) TEMP 
REAL R 
LOGICAL SMALL THAN 
TEMP=A—B 
R = TEMP 
IF(R<0)THEN 

SMALL THAN = .TRUE. 
ELSE 

SMALL, THAN = .FALSE. 
ENDIF 
END FUNCTION 


FUNCTION EQUAL(A, B) 
TYPE (FENSHU), INTENT( IN)::A,B 
TYPE (FENSHU) TEMP 
REAL R 
LOGICAL EQUAL 
TEMP=A-B 
R = TEMP 
IF(R== 0)THEN 
EQUAL = . TRUE. 
ELSE 
EQUAL = ,FALSE. 
ENDIF 
END FUNCTION 
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FUNCTION NOT_ EQUAL(A, B) 
TYPE( FENSHU), INTENT(IN) : :A,B 
TYPE ( FENSHU) TEMP 
REAL R 
LOGICAL NOT EQUAL 
TEMP=A—B 
R = TEMP 
IF(R/ = 0)THEN 
NOT_EQUAL = . TRUE. 
ELSE 
NOT EQUAL = . FALSE. 
ENDIF 
END FUNCTION 
END MODULE 


项 目 主 管 编写 验证 主 程序 单元 ,采用 三 分 之 一 与 三 分 之 二 两 个 分 数 进 行 验 证 。 


PROGRAM EXAM13 8 
USE ZHUGUAN 
USE CHENGYUAN A 
USE CHENGYUAN B 
TYPE( FENSHU) A,B,C 
A= FENSHU(1.0,3.0) 
B= FENSHU(2.0,3.0) 
PRINT x* , "第 一 个 分 数 为 " 
CALL PUT(A) 
PRINT * ," 第 二 个 分 数 为 " 
CALL PUT(B) 
PRINT * , "两 个 分 数 的 和 为 " 
C=A+B 
CALL PUT(C) 
PRINT * , "两 个 分 数 的 差 为 " 
C=A-B 
CALL PUT(C) 
PRINT x "两 个 分 数 的 积 为 " 
C=AxB 
CALL PUT(C) 
PRINT x , "两 个 分 数 的 商 为 " 
C= A/B 
CALL PUT(C) 
PRINT x , "两 个 分 数 的 >,> = ,<,<=，, == , /= 运算 结果 为 :" 
PRINTx<* ,A>B,A>=B,A<B,A<=B,A==B,A/=B 
END 


以 上 三 个 人 的 工作 可 以 并 行 开展 , 在 程序 编译 调试 时 ,创建 一 个 工程 项 目 并 将 原 有 模块 
( 例 13-6 中 除 主 程序 以 外 的 全 部 ) 和 新 建 模块 添加 到 工程 中 , 按 先 后 顺序 分别 编译 。 夺 有 问 
题 则 修改 调整 ,下 至 每 个 模块 单元 部 编 详 通过 ,然后 连接 生成 可 执行 文件 ,运行 后 查看 结果 
是 否 正 确 。 程 序 运 行 结果 如 图 13. 12 所 示 。 
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Pr 
sd 管理 员 : UNF 13 A\Debug\13_... | 品 必 呈 


个 务 数 的 >。 >=.《<.<=,.==,./= 运 息 结 果 为 ， 
pT! T T F 


请 人 间 名 续 ，， 。 a 
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1. 面向 对 象 程序 设计 方法 有 哪些 重要 概念 ? 试 举 一 个 生活 中 的 实际 例子 ,说 明 数 据 封 
2. FORTRAN 语言 为 何 要 引入 模块 ?使 用 模块 有 什么 优点 ? 

3. 在 模块 中 可 定义 哪些 对 销 ? 

4. 在 模块 中 为 何 要 指定 对 象 的 公有 、 私 有 属性 ? 默认 情况 下 ,模块 中 对 象 具 有 何 种 


5. 如 何 调 用 模块 ? 如 何 别 名 使 用 模块 中 的 对 象 ? 

6. 使 用 模块 定义 重力 加 速度 G, 编 写 程 序 计 算 投 掷 物 的 投掷 距离 。 

7. 为 什么 要 引入 接口 界面 块 功 能 ? 它 与 EXTERNAL 语句 功能 有 何 异 同 ? 

8. 在 什么 情况 下 必须 使 用 接口 界面 块 ? 

9. 接口 界面 块 中 声明 的 子 程序 参数 与 实际 的 子 程序 参数 有 何 异 同 ? 

10. 在 FORTRAN 语言 中 ,通过 什么 功能 实现 重 载 ? 重 载 的 本 质 是 什么 

11. 实现 重 载 时 ,声明 形式 参数 类 型 要 使 用 INTENT(IN) 和 INTENT (OU T) 属 性 ,这 
两 个 属性 有 何 作 用 ? 

12. 使 用 因数 子 程序 重 载 功能 ,实现 图 数 area。 如 果 用 一 个 实数 调用 area, 则 参数 看 作 
是 圆 的 半径 ,计算 圆 的 面积 并 返回 。 如 果 用 两 个 实数 调用 area, 则 参数 看 作 是 圆 的 内 径 和 外 
径 ,计算 圆 环 的 面积 并 返回 。 试 编写 主 程序 和 模块 单元 程序 。 

13. 统计 某 钟 点 工 的 总 工作 时 间 , 以 小 时 和 分 钟 计时 。 编 写 程序 实现 加 法 运算 符 重 载 ， 
使 其 能 够 计算 时 间 的 加 法 。 如 1h 20m 加 2h 45m 的 结果 是 4h 5m。 


常用 数值 算法 


教学 目标 : 

。 等 握 求 解 一 元 方程 的 方法 ; 

。 学 握 求 解数 值 积分 的 方法 ; 

。 掌握 常用 线性 代数 数值 方法 ; 

。 掌握 龙 格 库 塔 方法 求解 微分 方程 。 


数值 计算 是 FORTRAN 语言 最 主要 的 应 用 ,可 以 应 用 前 面 学 习 的 知识 来 进行 一 些 和 常用 
贷 法 的 程序 设计 。 本 章 介 绍 一 些 最 基本 的 数值 方法 ,以 此 来 学 习 程 序 设计 的 方法 与 技巧 ,并 
在 此 基础 上 举一反三 。 


14.1 求解 一 元 方程 


求解 一 元 方程 , 束 是 计算 消 数 f(x) 二 0 的 解 , 也 惑 是 计算 图 数 f(z) 的 曲线 和 zz 轴 的 
2 


14.1.1 二 分 法 


二 分 法 (Bisection) 求 解 一 元 方程 的 根 是 一 种 简单 耳 观 的 方法 。 基 本 思路 如 下 。 

(1) 先 任 取 两 个 值 x 和 Zz; , 设 图 数 f(xz) 在 区 间 [ zi ,zz 上 连续, 而且 f(xi)f(x;s) 二 0， 
也 就 是 f(z1) 和 f(xs) 异 号 , 则 在 Lxi ,zxs 区间 上 至 少 有 一 个 根 , 即 存在 一 个 xz 使 得 f(x) = 
0, 如 图 14. 1 所 示 。 

(2) 令 工 = 二 (zi 十 zo)/2, 如 果 f(xz)==0, 了 就 找到 了 一 
个 根 ,计算 完成 。 由 于 f(z) 是 一 个 实 型 数据 ,所 以 在 判 
断 f(z) 是 否 等 于 0 时 ,是 通过 判断 | f(x) | 是否 小 于 一 
个 足够 小 的 数 e( 误 差 容 限 ), 如 果 | f(zx)| 二 e, 就 认为 
f(x) 0 

(3) 若 f(x) 不 为 0, 判断 如 果 f(zi) 和 f(z) 异 号 , 则 
说 明 根 在 | zi ;zj 区 则 ,就 以 zx! 和 工 为 新 的 取 值 来 重复 步 
又 (2) ,这 时 用 z 作为 新 的 x;, 舍 掉 原 [x,xs | 区间; 如 果 
f(zs) 和 f(x) 异 号 , 则 以 zx、xs 为 新 的 取 仁 来 重复 步骤 (2) ， 
这 时 用 zz 作为 新 的 zi, 侍 挥 原 [xi,zxj 区 间 。 这 样 做 实际 
图 14.1 二 分 法 上 是 将 求解 的 区 间 减 少 了 了 一半, 如 此 反复 ,不 断 缩 小 求解 


f(x) 
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区 间 , 耳 到 | f(z) | 二 e 为止。 
【 例 14-1】 用 二 分 法 求 方程 f(x) 二 x 一 2z 十 7X 十 4 在 区 间 [ 一 1,1j 上 的 根 。 
程序 编写 如 下 ， 


MODULE BISECT 
CONTAINS 
REAL FUNCTION FUNC(X) ! 定 义 方 程 郴 数 
IMPLICIT NONE 
FUNC = KX¥¥ 3— F222F+TXN+A 
END FUNCTION FUNC 
REAL FUNCTION SOLVE(X1, X2) ! 二 分 法 求解 函数 
IMPLICIT NONE 
REAL, X1, X2, X, F1, F2, FX 
X= (Xl + xX2)/2.0 
FX = FUNC(X) 
DO WHILE(ABS(FX)> 1E— 6) 

F1 = FUNC(X1) 

F2 = FUNC( X2) 

IF(F1 x FX<0) THEN 

X2 =X 
X1 =X 

ENDIF 

X= (Xl1 + KX2)/2.0 

FX = FUNC(X) 
ENDDO 
SOLVE = X 
END FUNCTION SOLVE 
END MODULE BISECT 


PROGRAM EXAM14 1 


USE BISECT ! 应 用 二 分 法 模块 
REAL X1, X2,X 
DO 
PRINT x ，' 输 入 X1,X2 的 值 :' ! 输 入 xl 和 x2, 直到 f(xl1) 和 f(x2) 异 号 为 止 


READ * , Xl1,X2 
IF(FUNC(X1) < FUNC(X2)<0.0) EXIT 
PRINT * ，' 此 区 间 无 根 ,请 重新 输入 !' 

ENDDO 

X= SOLVE(X]1, X2) ! 调 用 求解 函数 

PRINT 10, 'X= ',X 

10 FORMAT(A,F15.7) 
END 


簿 入 x+-X2 的 值 ， 
程序 运行 结果 如 图 14. 2 所 示 。 i 


本 例 中 ,模块 BISECT 的 日 的 是 计算 方程 在 | x sy | ps ea 
区 间 的 根 , 模 块 里 包含 了 两 个 函数 子 程序 ,定义 方程 的 函 一 一 一 


数 子 程序 FUNC 和 求解 方程 的 函数 子 程序 SOLVE。 在 I 
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主 程序 单元 中 通过 循环 要 求 输入 区 间 的 两 个 取 值 x 和 xz; ,直到 满足 条件 func(xi) func(z;) 二 
0 为 止 , 以 保证 在 Lzi ,zz*j 区 间 有 根 。 在 得 到 满足 条 件 的 两 个 取 值 zx 和 zs 后 ,调用 二 分 法 模 
块 BISECT 中 的 求解 子 程序 SOLVE 求 得 根 值 后 输出 。 

二 分 法 求解 函数 子 程序 SOLVE 中 ,用 Fl1、F2、FX 分 别 表 示 对 应 X1、X2、X 的 函数 值 ， 
如 果 Fl FX 二 0, 说 明 FUNC(X1) 和 FUNC(X) 异 号 , 解 在 LX1,Xj] 区 间 , 舍 去 LX,X2j] 区 间 ， 
以 X1、X 为 新 的 取 值 ,所 以 X2 一 X; 否则 以 X、X2 为 新 的 取 值 ,Xl1 一 X。 人 然后 求 出 新 的 XX 和 
FUNC(X)。 重 复 这 一 过 程 ,直到 ABSCEX) 一 IE 一 6 为 止 。 

二 分 法 对 函数 的 要 求 低 , 计 算 思 想 朴 床 直观 ,容易 用 计算 机 编程 实现 ,但 二 分 法 的 收敛 
速度 不 是 很 快 。 


14.1.2 了 纺 截 法 


路 堆 法 (Secant) 的 基本 思路 和 "二 分 法 ?相似 ,只 是 二 分 法 每 次 取 区 间 的 中 点 ,然后 从 中 
舍 去 一 半 区 间 ,而 嘴 蕉 法 是 利用 线段 来 通 近 求 得 的 解 。 弦 鹤 法 取 (Czi,FGz)) 和 (zs,FCzs)) 
两 点 的 连 线 与 工 轴 的 交点 ,从 Lzizj 和 Lz,zsj 区 间 中 舍 去 一 个 ,取舍 的 方法 与 二 分 法 相同 ， 
如 图 14. 3 所 示 。 过 程 如 下 。 

(1) 先 任 取 两 个 值 x! 和 xs ,使 得 f(x1) Frzy)< 一 0。 

(2) 做 过 点 (zi 了 (zi)) 和 点 (zs ,f(xs)) 的 了 二线 ,这 
条 直线 与 x 轴 的 交点 为 (zx,0)。 可 用 以 下 公式 求 出 z。 


工 一 x 二 。 f(z) 

代入 方程 求 得 f(x) ,判断 | f(x)| 二 e 是 否 成 立 , 如 果 
是 就 找到 了 一 个 根 ,计算 完成 。 

(3) 否则 ,判断 f(zi) 和 f(z) 是 否 异 号 ,如 果 是 , 则 
说 明 根 在 Lxi ,zj 区 间 ,就 以 zy 和 为 新 的 取 值 来 重复 步 
又 (2) ,这 时 用 xz 作为 新 的 x; , 舍 挥 原 [x,xs jj 区间; 如果 
f(zs) 和 f(x) 异 号 , 则 以 zx ,xs 为 新 的 取 仁 来 重复 步 
又 (2) ,这 时 用 z 作为 新 的 zi , 舍 掉 原 [zxi ,zj 区 间 , 然 后 用 
同样 的 办 法 再 进一步 缩小 区 间 ,直到 | f(x)| 二 e 为 止 。 

【 例 14-2】 用 弦 鹤 法 求 f(x) 二 x 一 2x 十 7X 十 4 二 0 在 区 间 [ 一 1,1J 上 的 根 。 

程序 编号 如 下 : 


MODULE SECANT 

CONTAINS 

REAL FUNCTION FUNC(X) 1 定义 方程 晴 数 
IMPLICIT NONE 

REAL X 

FUNC = Xxx 3—2x%Xxx2+7x*X+4 

END FUNCTION FUNC 

REAL FUNCTION SOLVE(X1, X2) 1! 驴 截 法 求解 函数 
IMPLICIT NONE 

REAL X1, X2, X, Fl1,F2, FX 
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X= X2— (X2— X1)/(FUNC(X2) — FUNC(X1)) x FUNC(X2) 
FX = FUNC(X) 
DO WHILE(ABS(FX)> 1E— 6) 
Fl1 = FUNC( X1) 
F2 = FUNC( X2) 
IF(F1 * FX<0) THEN 
ji 
ELSE 
XI = 
ENDIF 
X= X2— (X2— KX1)/(FUNC(X2) — FUNC(X1)) * FUNC(X2) 
FX = FUNC(X) 
ENDDO 
SOLVE = X 
END FUNCTION SOLVE 
END MODULE SECANT 


PROGRAM EXAM14 2 
USE SECANT 
REAL X1, X2,X 
DO 
PRINT * ，' 输 入 区 ,22 的 值 :， 
RERD x , Xl1,X2 
IF(FUNC(X1) x* FUNC(X2)< 0) EXIT 
PRINT *,' 此 区 间 无 根 ,请 重新 输入 !' 
ENDDO 


X= SOLVE(X1, X2) 简 ，XL82 门 但， 

PRINT 10, ‘X= '",X = -8.4871281 
| Press any key to continuwe 
10 FORMAT(A,F15.7) 

END | 


a 图 14.4 例 14-2 运行 结果 
程序 运行 结果 如 图 14. 4 所 示 。 


14.1.3 和 迭代 法 


迭代 法 求解 一 元 方程 的 根 ,基本 思路 如 下 。 

(1) 将 f(z) 转 换 成 求 xz 的 等 式 x= 二 g(x) 的 形式 。 

(2) 先 任 取 一 个 初 值 zxo ,代入 g (x), 得 到 zi ,xi 是 第 一 个 近似 值 。 

(3) 将 zi 代入 g(x), 得 到 xz，。 以 此 类 推 ,一 次 次 将 求 得 的 新 值 当 作 下 一 次 的 初 值 代入 
g(x), 寻 ，; 

To g(rTo) 一 了 一 BID) 一 TI 一 GT) 一 5 g(TI3) > TL TI 一 5 
也 到 前 后 两 次 求 出 的 zz 的 从 很 接近 , 即 | z+41 一 x | 二 8, 这 时 z+41 就 是 所 求 得 的 解 。 

【 例 14-3〗 用 壕 代 法 求 方 程 f(z) 二 x 一 2z 十 7x 十 4 二 0 在 区 间 [ 一 1,1j 的 根 。 

分 析 : 先 找 出 x 二 g(x) 的 表达 式 , 可 令 X= 二 (一 TX 十 27 一 4)/7。 

使 用 过 代 法 还 要 考虑 一 个 问题 ; 有 可 能 经 过 多 次 迭代 后 不 收敛 。 为 防止 无 休止 地 迭代 
下 去 ,需要 设 定 一 个 最 高 的 循环 次 数 , 如 果 达 到 这 一 次 数 仍 不 满足 |x,+41 一 zx, | 二 8, 就 不 再 进 


FORTRAN 语言 程序 设计 一 FORTRAN9GSS 
行 下 去 ,输出 "经 过 X 次 友 代 后 仍 未 收 仇 ”。 是 否 收 和 伍 与 迭代 公式 和 初 人 有关。 
程序 编写 如 下 : 


MODULE ITERATION 
IMPLICIT NONE 


INTEGER:: MAX = 200 ! 最 大 允许 迭代 次 数 
CONTAINS 

REAL FUNCTION G(X) ! 定 义 迭 代 畏 数 G(X) 
IMPLICIT NONE 


G=( 一 Xxx3+2xXxx2 一 4)77 
END FUNCTION G 


SUBROUTINE SOLVE(X) ! 迭 代 法 求解 子 程序 
IMPLICIT NONE 
INTEGER I 
I=1 
X1 = G(X) 
DO WHILE( ABS(X— X1)> 1E— 6.AND.I<= MAX) 

PRINT 10, 1, X1 

X= Xl 

I=I+1 

X1 = G(X) 
ENDDO 
IF(I<= MAX) THEN 

PRINT 20, X= '",X1 ! 输 出 计算 结果 
ELSE 
PRINT 30，' 经 过 ', MAX, ' 次 迭代 后 仍 未 收敛 ' 

ENDIF 
10 FORMAT('I = ',14,6X,'X= ',F15.7) 
20 FORMAT(A, F15.7) 
30 FORMAT(A, I4, A) 
END SUBROUTINE SOLVE 
END MODULE ITERATION 


PROGRAM EXAM14 3 

USE ITERATION 

REAL XO 

PRINT * ，' 输 入 初 值 X0:' 

READ x , X0 

CALL SOLVE(X0) ! 调 用 迭代 法 求解 
END 


程序 运行 结果 如 图 14. 5 所 示 。 
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wl 
+| 
t+| 


mh 7 并 
Es A 
mE 
- .4853823 
一 加 -487791 
-0B.4868695 
.4872154 
-0.4870839 
-BB.4871339 
.487i1149 
一 日 .48 71221 
一 四 .48 7 二 9 本 
-0B.4871204 
-B.A4871200 


i 必 扣 oO 


[9 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
be 
P 


-| | IN | 


| 
的 


any kevy to continue 


图 14.5 例 14-3 运行 结果 


14.1.4 和 牛顿 迭代 法 


用 牛顿 迭代 法 求解 一 元 方程 的 根 ,基本 思路 如 下 。 
(1) 任 取 一 个 值 zi 。 
(2) 过 点 (zi ,f(z1)) 做 切线 , 即 以 (xi) 为 斜率 作 直线 ,这 条 直线 与 xz 轴 的 交点 为 x;， 
如 图 14. 6 所 示 。 可 用 以 下 公式 求 出 zz 。 
由 于 
fF (zx1) A 


,二 1 i 


f(x) 
f (xi) 

判断 | f(zxs) | 二 8 是 否 成 立 , 如果 成 立 , 就 找到 了 一 个 解 ， 

计算 完成 。 

(3) 否则 ,重复 步骤 (2), 以 了 (zs) 为 斜率 过 点 (xs， 
f(z;)) 做 切线 , 求 出 与 xz 轴 的 交点 x3,……, 直 到 | f(x,)| 一 
s, 认 为 x, 就 是 所 求 得 的 根 。 图 14.6 牛顿 迭代 法 

牛顿 迭代 法 又 叫做 切线 法 。 

【 例 14-4】 用 牛顿 迭代 法 求 f(x) 二 一 2zx? 十 7z 十 4 二 0 在 区 间 [ 一 1,1] 的 根 。 

先 求 出 (zx)=3zx: 一 4z 十 7。 

程序 编写 如 下 : 


| 


MODULE NEWTON 
IMPLICIT NONE 


INTEGER: : MAX = 200 ! 最 大 允许 迭代 次 数 
CONTAINS 
REAL FUNCTION FUNC(X) ! 定 义 方程 
IMPLICIT NONE 
REAL X 


FUNC = XX 3—2%XEEXEDF+TN+Ad 
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END FUNCTION FUNC 


REAL FUNCTION DFUNC(X) 1 一 次 导数 
IMPLICIT NONE 
REAL X 
DFUNC= 3x* Xxx 2—4xX+7 
END FUNCTION DFUNC 
SUBROUTINE SOLVE(X) ! 求 解 子 程序 
TMPLICIT NONE 
REAL X, Xl 
INTEGER I 
I=1 
Xl1 = X— FUNC(X) /DFUNC(X) 
DO WHILE(ABS(X— X1)> 1E— 6.AND.I<= MAX) 
PRINT 10，I, X1 
二 实生 
I=I+1 
X1 = X— FUNC(X) /DFUNC(X) 
ENDDO 
IF(I<= MAX) THEN 
PRINT 20, 'X=',X1 ! 输 出 计算 结果 
ELSE 
PRINT 30，' 经 过 ', MAX, ' 次 迭代 后 仍 未 收敛 ' 
ENDIF 
10 FORMAT('I= ',14,6X,'X= ',F15.7) 
20 FORMAT(A, F15.7) 
30 FORMAT(A, I4 ,五 ) 
END SUBROUTINE SOLVE 
END MODULE NEWTON 


PROGRAM EXAM14 4 
USE NEWTON 

REAL X0 

PRINT * ，' 输 入 初 值 ' 

READ x , X0 

CRLL SOLVE(X0) ! 调 用 牛顿 迭代 法 求解 子 程序 
END 


程序 运行 结果 如 图 14.7 所 示 。 


PE We 

.4896336 

-4871224 

.48712 82 
.4871202 


| 着 而 避 亲 存 避 二 而 和 在 而 二 于 看 由己 


图 14.7 例 14-4 运行 结果 


以 上 介绍 了 几 种 不 同 的 求解 一 元 方程 的 根 的 方法 。 这 些 方法 部 是 用 近似 法 求解 ,得 到 
的 解 只 是 近似 值 。 现 实 中 能 用 解析 法 求 得 准确 根 值 的 方程 只 占 极 少 部 分 。 而 用 计算 机 可 以 
求解 任何 有 实 根 的 一 元 方程 ,有 所 用 的 基本 方法 就 是 迭代 ,经 过 多 次 达 代 ,让 近似 根 乏 渐 趋 近 
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真实 根 。 失 代用 循环 来 实现 , 正 是 利用 了 计算 机 运算 速度 快 的 特点 。 
除了 以 上 几 种 方法 外 ,还 有 其 他 求 近 似 解 的 方法 ,有 兴趣 的 谈 者 可 以 参阅 相关 书籍 。 根 
据 以 上 方法 的 基本 思想 ,可 以 在 此 基础 上 进行 改进 或 增加 一 些 功能 。 另 外 ,不 同 书 籍 中 介绍 
的 具体 程序 可 能 会 有 一 些 差 别 , 读 者 可 根据 需要 编写 自己 的 程序 。 


14.2 数值 积分 


求 一 个 函数 f(z) 在 La,5] 上 的 定 积分 | fadz, 其 几何 意义 是 求 曲 线 f(z) 和 直线 


Xz 二 a,y 一 0,X 王 b 所 围 成 的 曲 边 梯形 的 面积 。 为 了 近似 求 出 这 一 面积 ,可 将 La,65bj 区 间 分 成 
右 十 个 小 区 间 , 每 个 区 间 的 宽度 为 (0 一 a) /n,n 为 区 则 个 数 。 近 似 求 出 每 个 小 的 曲 边 梯形 面 
积 , 然 后 将 邯 个 小 面积 加 起 来 ,就 近似 得 到 总 的 面积 , 即 定 积 分 的 近似 值 。 当 半 越 大 , 即 区 间 
划分 得 越 小 ,近似 程度 越 高 。 

近似 求 小 曲 边 梯形 的 面积 的 方法 是 用 各 种 已 知 面积 的 小 图 形 来 代替 小 曲 边 梯形 ,用 已 
知 面积 的 总 和 来 通 近 答案 。 第 用 的 方法 有 以 下 三 种 : 

。 用 小 定形 代 奉 小 曲 边 柳 形 ; 

”用 小 构 形 代 斩 小 曲 边 柳 形 ; 

。 在 小 区 间 范 围 内 ,用 一 条 抛物 线 代 蔡 区 间 内 的 f(x) ,然后 求 由 这 一 抛物 线 所 构成 的 

小 曲 边 梯形 的 面积 。 


14.2.1 算 形 ; 


用 小 矩形 面积 代替 小 曲 边 梯形 ,矩形 面积 的 求解 公式 为 底 X 高 。 将 La,5bj 区 则 分 为 nn 个 
区 间 , 令 二 (5 一 a)/n, 如 图 14. 8 所 示 。 y 
求 第 1 个 小 矩形 面积 : 底 ==h, 高 ==f(a),Si 二 hh， 
fla)。 也 可 用 f(a 十 h) 为 高 ,得 到 Si 二 hh， f(a 十 h)。 
求 第 i 个 小 矩形 面积 : 底 ==h, 高 =f(a 十 (i 一 1)。， 有 hh)， 
也 可 用 f(a 十 i。 及) 为 高 ,有 
S;=h. flat+(i—1).h) 


【 例 14-5】 用 和 矩形 法 求 | (1 + ex) dx. 
程序 编写 如 下 : 


fx) fp) 


a ath 
MODULE RECTANGLE at(i-1)h atih 
CONTAINS 
REAL FUNCTION FUNC(X) 1 积分 图 数 图 14.8 和 矩形 法 
IMPLICIT NONE 
REAL X 
FUNC = 1 + EXP(X) 
END FUNCTION FUNC 
RERAL FUNCTION SOLVE(A,B,N) ! 和 矩形 法 求解 图 数 
IMPLICIT NONE 
REAL X, A,B,H,S 
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INTEGER I,N 

X=A 

H= (B— A)/N 

S=0 

DOI=1,N 
S=S+EUNC(X) *H 
X=X+H 

END DO 

SOLVE=S 

END FUNCTION SOLVE 

END MODULE RECTANGLE 


PROGRAM EXAM14 5 

USE RECTANGLE ! 应 用 和 矩形 法 模块 
REAL A,B,S 

INTEGER N 

PRINTx*,' 输 入 A,B 和 的 值 ' 

READ * ,A,B,N 


S = SOLVE(A,B,N) ! 调 用 和 矩形 法 求解 的 函数 
PRINT 10, A,B,N 
PRINT 20，S ! 输 出 计算 结果 


10 FORMAT('A= ',F5.2,3X,'B= '"',F5.2,3xX,'N= ',14) 
20 FORMAT('S = ', F15. 8) 
END 


运行 结果 如 14. 9 所 示 。 如 果 输 入 的 7 为 100, 则 运行 结果 如 图 14. 10 所 示 。 


cv “FEF:\3\Debug\3. ee” 
性 六 n.B 和 N 的 值 


N= i168 
2.b3373955 


Press any key to continue 


图 14.9 例 14-5 运行 结果 1] 


“EF:\3\Debur\3. exe” 


[si Ws N= 186 
2.70970368 


图 14.10 例 14-5 运行 结果 2 
综 上 所 述 ,n 的 值 越 大 ,计算 结果 与 | (1 十 e*)dz 的 准确 值 越 接 近 。 


14.2.2 梯形 ; 
方法 基本 同 矩 形 法 ,用 小 梯形 面积 代替 小 曲 边 梯形 。 
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如 图 14. 11 所 示 ,将 La ,oj 区 间 分 为 于 个 区 间 , 令 有 一 (0 一 4a)/m。 
第 1 个 小 梯形 的 面积 为 


o _ Fa) 十 Fa 十 月 
S = HWT fath) 


2 四 


第 i 个 小 梯形 的 面积 为 
S = Fa 十 G 一 1)。j) 十 Fa 二 iv Am) 
2 


【 例 14-6】 用 梯形 法 求 | (1 4 er) dx. 
程序 编号 如 下 : 


h 


MODULE TRAPEZIA 0 a OH 有 


CONTRINS 
REAL FUNCTION FUNC(X) 


Jo0 72) 


SR 


/\ p 


at(i—l)h atih 


IMPLICIT NONE 图 14.11 梯形 法 1 


REAL XX 
FUNC = 1 + EXP(X) 
END FUNCTION FUNC 


REAL FUNCTION SOLVE(A,B,N) ! 梯 形 法 求解 函数 
IMPLICIT NONE 
REAL X, A, B,H,S 
INTEGER I,N 
X=A 
H= (B— A)/N 
S=0 
DOI=1,N 
S=S+ (FUNC(X+ (I—1) *H) +FUNC(X+IxH))*H/2.0 
END DO 
SOLVE = S 
END FUNCTION SOLVE 
END MODULE TRAPEZIA 


PROGRAM EXAM14 6 

USE TRAPEZIA ! 应 用 梯形 法 模块 
REAL A,B,S 

INTEGER N 

PRINTx* ,' 输 入 A,B 和 的 值 ' 

READ x ,A,B,N 


S = SOLVE(A,B,N) ! 调 用 梯形 法 求解 阻 数 
PRINT 10, A,B,N 
PRINT 20，S ! 输 出 计算 结果 


10 FORMRAT( 'A= ',F5.2,3X,'B= ',F5.2,3X,'N= ',14) 
20 FORMRT('S= ',F15.8) 
END 


程序 运行 结果 如 图 14. 12 所 示 。 


309 


310 
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外 六 .Bi 和 Nb 的 值 
B 1.1Bg 
-6g B= 1-ega N= 109 
2.71829629 


Press any kevy to continue 


图 14.12 例 14-6 运行 结果 1 


以 上 程序 是 未 一 求 出 每 一 个 小 梯形 面积 ,然后 累加 起 来 。 也 可 以 先 找 出 求 n 个 小 梯形 
面积 的 代数 和 公式 ,然后 再 据 此 编程 。 
设 fo i 了 »""" Wy 分 别 是 * = Costly "dn 时 函数 f(z) 的 值 , 如 图 14.13 所 示 。 


BD 
加 加 | 
坚 


这 
Eee 
有 
fs = f(a 2h) 一 1 十 ee 


了 
f, = flaitneh) = ff(6) 一 1 十 人 
程序 编写 如 下 : 


MODULE TRRPEZIRA2 
CONTAINS 

REAL FUNCTION FUNC(X) 图 14.13 梯形 法 2 
FUNC = 1 + EXP(X) 

END FUNCTION FUNC 

REAL FUNCTION SOLVE(A, B,N) 

IMPLICIT NONE 

REAL X, A,B,H,S 


a 
fondr (fo 十 f) 十 各 Cfi 二 fo) 十 各 (所 二 所) 十 一 十 各 (fa 十 玫 ) 


INTEGER I,N 


X= 

H= (B— A)/N 

S=0 

DOI=1,N-—-1 ! 求 出 2(P + 可 + 本 .+ Fy-i1) 


S=S+2*x FUNC(X+IxH) 


END DO 
SOLVE = (S + FUNC(A) + FUNC(B)) < H/2.0 
END FUNCTION SOLVE 

END MODULE TRAPEZIA2 


PROGRAM EXAM14 6 2 


IMPLICIT NONE 
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REAL A,B,» 
INTEGER NM 
PRINT* , ' 输 入 A,B 和 的 值 ' 
READ x* ,A,B,N 


S = SOLVE(A,B,N) ! 调 用 求解 晴 数 
PRINT 10, A,B,N 
PRINT 20，S ! 输 出 计算 结果 


10 FORMAT('A= ',F5.2,3X,'B=',F5.2,3xX,'N= ',14) 
20 FORMAT( 'S= ', F15.8) 
END 


程序 运行 结果 如 图 14. 14 所 示 。 


“F:\3\Debug\3. exe™ 
币 八 A .BN 的 值 
加 -二 -二 加 车 


H= 5| B= 1 .80 N= i106 
3 = .171823685 


Press any key to continue 


图 14.14 例 14-6 运行 结果 2 


14.2.3 汗 普 生 法 

辛 普 生 (Simpson) 法 的 基本 思路 为 : 在 一 小 区 间 内 用 抛物 线 广 (z) 代 蔡 原 来 的 f(zx)， 
如 图 14. 15 所 示 。 抛 物 线 通 过 以 下 方法 确定 : 取 a,b。 
的 中 点 cc 的 坐标 为 【4,0 ], 求 出 f(c)。 通过 (a， 


fla)) ,Cc,fCO)), C0, 了 (0)) 三 点 可 以 做 出 唯一 的 一 条 
抛物 线 (zx) ,由 数学 知识 知 
i 


OO 
《 工 一 &J)CZ 一 

下 (5 一 CD 一 
(TC—a)(z— 

(c—a)(co— ee 


并 且 可 知 , i(a)= 了 (a), fi (6) i ,fi1(c)= fc), 
[a, 妇 区 间 的 定 积分 | f(z)dz 可 用 | f1(x)dz 代 
替 ,根据 抛物 线 定 积分 求 值 公式 ,有 
| fi dz = = 2 [f(a) 十 4f(c) 十 Fo) 


图 14.15 辛 普 生 法 1 


5 一 
其 中 ,一 8 

如 果 将 [a,b5] 区 间 分 成 两 个 小 区 间 [a,c] 和 [c,651], 每 个 小 区 间 分 别 以 一 条 抛物 线 代替 原 
来 的 f(z) ,如 图 14.16 所 示 。 总 面积 为 两 个 小 的 曲 边 梯形 S 和 S; 的 面积 之 和 。 
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bp 


{f(D +4f(ath) + fat2n)l+[f (at 2n) + 4 3h) + £5) 
= {fC +f +Af Cat + fat 3h)]+2fa + 2h)) 


_& be ba 
下 ho x2 


从 上 式 中 可 以 看 出 以 下 规律 : f(a 十 讨 ) 当 中 , 当 ;为 奇数 时 , 它 前 面 的 系数 是 4; i 为 侦 
数 时 ,系数 为 2。 


14.16 六 普 生 法 2 图 14.17 辛 普 生 法 3 


为 使 求 得 的 定 积分 更 准确 ,可 以 再 划分 更 小 区 间 。 如 果 分 成 4 个 小 区 间 ,如 图 14.17 所 
示 ,总 面积 为 4 个 小 的 曲 边 樟 形 面 积 之 和 。 即 : 
DA 1 十 Ss 十 Ss 十 号 4 


= {f(a) +4flath) + fat2n)]+[Lf(at2) +4f(at 3h) + fat 4h)] 
ta dy fa YT Fa Oy da Ty JO 
一 名 {f(D 十 了 (56) 十 4[f(a 二 有 二 flat+3h) 十 f(a 十 5h) 十 f(a 十 7h)] 
4 eT Ha dy fa OT 
其 中 由 一 2 和。 
如 果 划 分 成 71 个 小 区 间 , 则 有 : 
、 ~ {f(a) oy fn OY fa tg | 


十 2 f(a 十 2 入) 十 了 Ca 年 48) 十 下 十 f(a (2n 一 2) =h)]) 
也 可 以 写成 . 


S ~ {f(a) a 
ol ea fo Aby Em Fla dns BY 
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bp—a 
其中 有 Xn” 


1 
【 例 14-7】 用 六 普 生 法 求 | G 十 er)dz。 


分 析 : 程序 中 用 下 2 表示 要 乘 以 2 的 那 一 个 多 项 式 , 用 F4 表示 要 乘 以 4 的 多 项 式 。 
程序 编写 如 下 : 


MODULE, SIMPSON 


CONTAINS 

REAL FUNCTION FUNC(X) ! 积 分 函数 
IMPLICIT NONE 

REAL X 


FUNC = 1 + EXP(X) 
END FUNCTION FUNC 
REAL FUNCTION SOLVE(A,B,N) ! 辛 普 生 法 求解 函数 
IMPLICIT NONE 
REAL A,B,H,F2,F4,X 
INTEGER I,N 
H= (B-—- A)/(2.0*N) 
X=A+H 
F2=0 
F4 = FUNC(X) 
DOI=1,N-1 
X=X+H 
F2 = F2 + FUNC(X) 
X=X+H 
F4 = F4 + FUNC(X) 
END DO 
SOLVE = (FUNC(A) + FUNC(B) + 4.0x*x FA4+2.0xF2) x*H/3.0 
END FUNCTION SOLVE 
END MODULE SIMPSON 


PROGRAM EXAM14 7 
USE SIMPSON ! 应 用 SIMPSON 模块 
REAL A,B,S 

INTEGER N 

PRINTx* ,' 输 入 A,B 和 的 值 ' 

READ * ,A,B,N 


S = SOLVE(A,B,N) ! 调 用 求解 肾 数 
PRINT 10, A,B,N 
PRINT 20，S ! 输 出 计算 结果 


10 FORMAT('A= ',F5.2,3X,'B= ',F5.2,3X,'N= ',14) 
20 FORMAT( 'S= ',F15. 8) 
END 


程序 运行 结果 如 图 14. 18 所 示 。 
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co “F:\3\Debug\3. exe” 
辆 八 A ,BN 的 值 
下 1 于 1 日 上 | 


B= 1 .8 N= i106 
A ed 


图 14.18 例 14-7 运行 结果 


在 三 种 求 定 积分 的 方法 中 ,和 矩形 法 的 误差 较 大 ,梯形 法 次 之 , 辛 普 生 法 最 好 ， 
14.3 线性 代数 
线性 代数 的 数值 方法 即 和 矩阵 的 应 用 。 在 程序 中 使 用 二 维 数组 来 表示 和 抢 阵 。 
14.3.1 和 矩阵 的 加 \ 减 、 乘 法 运算 
1. 让 阵 的 加 、 减 法 
和 矩阵 的 加 ,减法 只 是 单纯 地 将 窍 阵 中 相同 坐标 位 置 的 数 衬 相 加 减 。FORTRAN90 之 后 
的 版 本 可 以 直接 对 数组 做 整体 计算 ,通过 一 个 命令 就 可 以 完成 矩阵 的 加 、 减 运算 ,在 第 7 曹 
中 已 做 过 介绍 。 在 FORTRAN77 中 , 则 必须 使 用 循环 来 完成 。 例 如 : 
DOI=1,M 
DOJ=1,N 
C(I,J)= A(I,J)— B(I,J) 
ENDDO 
ENDDO 
2. 寺 阵 的 乘法 
矩阵 的 乘法 不 能 直接 用 乘 号 来 完成 ,在 FORTRAN95 中 需要 调用 标准 图 数 MATMUL 
完成 整体 操作 。 


C= MATMUL(A, B) 


在 FORTRAN77 中 ,必须 自己 编写 程序 来 实现 矩阵 乘法 。 

【 例 14-8】 已 知 mmxXn 的 矩阵 a 和 nnXp 的 矩阵 5 ,计算 它们 的 乘积 矩阵 cc, 即 c==a X56。，。 
分 析 : 根据 矩阵 的 乘法 规则 ,乘积 矩阵 cc 必 为 m Xp 的 矩阵 ,c 矩阵 各 元 系 的 计算 公 

式 为 
ci 一 > X ba;) (1 了 
为 了 计算 c, 需 要 采用 三 重 循环 。 外 层 循环 控制 矩阵 的 行 (从 1 到 m) ,第 二 层 循环 控制 
程序 编写 如 下 : 
PROGRAM EXAM14 8 


INTEGER M,N,P 
INTEGER, ALLOCATABLE:; A(:,:),B(:,:),C(:,:) 
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PRINT x* , "输入 矩阵 RN 和 了 BNP) 中 MNN、P 的 值 : " 
READ x ,M,N,P 
ALLOCATE(A(M, N)) 
ALLOCATE(B(N,P)) 
ALLOCATE(C(M, P)) 
PRINT 10," 输 入",M,"x*",N, "的 算 阵 A: " 
CALL INPUT(A, M,N) 
PRINT 10, "输入",N," x*",P, "的 矩阵 B:" 
10 FORMAT(A, I2, A, 12,A) 
CALL INPUT(B, N,P) 
CALL MYMATMUL( A, B, C, M, N, P) 
CALL OUTPUT(C, M, P) 
DEALLOCATE (A) 
DEALLOCATE( B) 
DEALLOCATE( C) 
END 


SUBROUTINE INPUT(A, M,N) 
INTEGER A(M, N) 
DOI=1,M 

READ * ,(A(I,J),J= 1,N) 
ENDDO 
END 


SUBROUTINE OUTPUT(A, M, N) 

INTEGER A(M, N) 

PRINT 10,((A(I,J),J= 1,N),I=1,M) 
10 FORMAT(<N> 16) 

END 


SUBROUTINE MYMATMUL (A, B,C, M, N, P) 
INTEGER M,N,P 
INTEGER A(M, N),B(N,P),C(M,P) 
DOI=1,M 
DOJ=1,P 
C(I,J)=0 
DOK=1,N 
C(I,J) = C(I,J) +A(I,K) * B(K,J) 
ENDDO 


程序 运行 结果 如 图 14. 19 所 示 。 
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病 入 天 年 an-n? 和 bnzpy 中 nn、 的 值 ， 
也 
、3x* 2 的 矩阵 a， 


er, 
a 


EE 


b 


[一 


[= Ns a Ef 


» 


、2* 2 的 拭 阵 b， 


一 


四 B、， 


3 
加 
HL 
3 
5 
人 
1 
3 


18 
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Press any key to continue 


图 14.19 例 14-8 运行 结果 


14.3.2 三 角 和 矩阵 


通过 和 宪 阵 中 的 两 行 数字 相 减 ,将 矩阵 换算 成 上 三 角 定 阵 或 下 三 角 算 阵 。 所 谓 上 三 角 定 阵 
就 是 算 阵 中 对 角 线 以 下 的 元 系 全 部 为 零 , 下 三 角 算 阵 就 是 矩阵 中 对 角 线 以 上 的 元 系 全 部 为 零 。 
] 2 3 4 0 0 0 0 


性 
王 二 玫 二 一 
CA 
> 
> 


) 攻 3 4 9 
上 三 角 和 矩阵 下 三 角 算 阵 
将 定 阵 转换 成 三 角 定 阵 , 是 将 某 一 行 滋 以 一 个 系数 ,然后 和 态 外 一 行 相 减 。 例 如 ,要 得 
到 上 三 角 和 矩阵 , 先 将 第 1 行 第 1 列 以 下 的 元 隶 清 堆 ,再 将 第 2 行 第 2 列 以 下 的 元 系 清 雯 ，…… ， 
耳 到 倒数 第 二 行为 止 ,这 一 过 程 称 为 消 元 。 
【 例 14-9】 将 下 列 窍 阵 转 换 为 上 三 角 和 矩阵 。 


C31 32 33 
分 析 : 将 矩阵 转换 为 上 三 角 和 矩阵 , 消 元 步骤 如 下 ，。 
(1) 第 2 行 一 第 1 行 X 二 ,第 3 行 一 第 1 行 X 二 ,得 到 新 矩阵 : 
11 11 
以 11 12 13 
i 


i F 
0 Ua2 Ud3314 


(2) 再 从 新 矩阵 中 消去 元 素 a , 即 第 3 行 一 第 2 行 义 综 ,得 到 上 三 角 和 矩阵 


22 


PROGRAM EXAM14 9 
REAL, ALLOCATABLE.. A(:,:) 
PRINTx , "输入 N:" 
READ * ,N 
ALLOCATE(A(N, N)) 
PRINT 10," 输 入",N," x*",N, "的 矩阵 A:" 
CALL INPUT(A,N) 
10 FORMAT(A, I2, A, 12,A) 
CALL UP(A, N) 
CALL OUTPUT(A, N) 
DEALLOCATE( A) 
END 


SUBROUTINE INPUT(A,N) 
REAL A(N,N) 
DOI=1,N 

READ x* ,(A(I,J),J= 1,N) 
ENDDO 
END 


SUBROUTINE OUTPUT(A., N) 

REAL A(N,N) 

PRINT 10, ((A(I,J),J=1,N),I=1,N) 
10 FORMAT(<N> F6.2) 

END 


SUBROUTINE UP(A,N) 
REAL A(N, N) 
DOI=1,N-1 
DOJ=I+1]1,N 
P= (J,I)/A(I, I) 
A(J,I:N) = A(J,I:N)— A(I,I:N)x*P 
ENDDO 
ENDDO 
END 


I nN: 


和 六 3* 3 的 拓 阵 a; 


.88 加 .上 四 日 
4.88 日 .8g 
3.09 —1 .80 


Press any key to continuwue 
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14.20” 例 14-9 运行 结果 1 


程序 运行 结果 如 图 14. 20 所 示 。 


转换 成 下 三 角 和 矩阵 的 做 法 相似 ,编写 下 三 角 转 换 子 程序 如 下 : 


SUBROUTINE LOW(A,N) 
REAL A(N,N) 
DOI=N,2,-—1 
DOJ=I-1,1,—1 
P= A(J,I)/A(I,I) 
A(J,1:1) = A(J,1:1)— A(I,1:I)*P 
ENDDO 
ENDDO 
END 
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程序 运行 结果 如 图 14. 21 所 示 。 


she 


了 
入、3x* 3 的 矩阵 a， 
1 


my | 
= 


1 

一 

-BB 2.400 1.00 
-BO 33 GB.67 
-了 一 5 .日 日 


“全 全 any key to continue 


图 14.21 例 14-9 运行 结果 2 


14.3.3 Gauss-Jordan 法 求 联 立方 程 组 
有 以 下 联 立 方程 组 : 
3z 十 2y 十 z= 二 14 
Ty 二 z= 10 
2 十 3y 一 zz 一 1] 
这 组 等 式 可 以 用 和 矩阵 的 方式 来 表示 如 下 : 


3 2 1 天 了 4 
& 一 | 1 1 c=|y| b=|10 
-A 之 .1 


它们 的 关系 为 aXc=5b,c 为 要 求解 的 未 知 数 。 

应 用 14. 3.2 方 中 介绍 的 上 、 下 三 角 答 阵 的 求解 方法 ,可 以 实现 Gauss-Jordan( 局 斯 消 
元 ) 法 求解 联 立 方程 组 。 需 要 注意 的 是 ,和 矩阵 中 用 数组 2 表示 等 号 后 面 的 数值 ,矩阵 的 每 
行 在 互相 加 减 时 ,数组 5 要 跟着 一 起 操作 。 

【 例 14-10】 用 Gauss-Jordan 法 求 联 立 方程 组 。 

编写 程序 如 下 : 


MODULE GAUSS JORDAN 
CONTAINS 
SUBROUTINE INPUT(A,N) 
REAL A(N,N) 
DOI=1,N 

READ * ,(A(I,J),J=1,N) 
ENDDO 
END SUBROQUTINE INPUT 


SUBROUTINE SOLVE(A, B,C.,N) 
DIMENSION A(N, N),B(N),C(N) 
CALL UP(A, B,N) 

CALL LOW(A, B,N) 
FORALL(I=1:N) 
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C(I) = B(I)/A(I,I) 
ENDFORALL 
END SUBROUTINE SOLVE 


SUBROUTINE OUTPUT(A, B, N) 
REAL A(N,N),B(N) 
DOI=1,N 
PRINT 10,A(I,1),I 
DOJ=2,N 
IF(A(I,J)> 0) THEN 
PRINT 20,A(I,J),J 
PRINT 30, ABS(A(I,J)),J 
ENDIF 
ENDDO 
PRINT 40, B{(I) 
ENDDO 
10 FORMAT(F5. 2, 'X', I1\) 
20 FORMAT('+ ',F5.2, 'X',I1\) 
30 FORMAT('— ',F5.2,'X',I1\) 
40 FORMAT(' = ', F8.4) 
END SUBROUTINE OUTPUT 


SUBROUTINE UP(A, B, N) 
REAL A(N, N),B(N) 
DOI=1,N-1 
DOJ=I+1,N 
P=A(J,I)/A(I,I) 
A(J,I:N) = A(J,I:N)— A(I,I:N)*P 
B(J) = B(J) - B(I)*P 
ENDDO 
ENDDO 
END SUBROUTINE UP 


SUBROUTINE LOW(A, B, N) 
REAL A(N,N),B(N) 
DOI=N,2,-1 
DOJ=I-1,1,-—1 
P=A(J,I)/A(I,I) 
A(J,1:1) = A(J,1:1) — A(I,1:I)*P 
B(J) = B(J)— B(I)*P 
ENDDO 
ENDDO 
END SUBROUTINE LOW 
END MODULE GAUSS JORDAN 


PROGRAM EXAM14 10 
USE GAUSS JORDAN 
REAL, ALLOCATABLE;.; A(:,:),B(:),Cc(:) 


PRINT * , "输入 未 知 数 个 数 N:" 
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READ x* ,N 
ALLOCATE(A(N, N)) 
ALLOCATE(B(N)) 
ALLOCATE(C(N)) 
PRINT x*，," 输 入 系数 和 矩阵 及 : " 
CALL INPUT(A, N) 
PRINT x*, "输入 等 值 和 矩阵 B:" 
READ x* ,B 
PRINT * ," 联 立方 程 组 :" 
CALL OUTPUT(A, B, N) 
CALL SOLVE(A, B,C,N) 
PRINT * "求解 :" 
DOI=1,N 
PRINT 10, 1,C(I) 
ENDDO 
10 FORMAT( 'X', Il1,'= ',F8.4) 
DEALLOCATE(A) 
DEALLOCATE(B) 
DEALLOCATE(C) 
END 


程序 运行 结果 如 图 14. 22 所 示 。 


.Hixli+ 2. OOx2+ 1 .900x3 14.000n 
1 .dixa+ 天 加 xz 二 二 -加 四 xx = 18.0009 
江 re 了 -上 四 四 xx 一 1.00x3 1 - 人 回国 四 


1.0999 
2 .9990 
7.00009 


14.22 例 14-10 运行 结果 


程序 中 用 Xl1、X2、X3 来 表示 未 知 数 zy\z, 以 增强 程序 的 功能 ,可 求解 多 个 未 知 效 的 方 
程 组 。 


14.4 求解 钊 徽 分 方程 


对 于 第 微 分 方程 初 值 问题 ,可 以 与 为 : 
dy _ i 
| :mE = f(ysT) 


y(Czo) 一 yo 


法 。4 级 4 阶 的 龙 格 - 库 培 方 法 又 称 为 龙 格 - 库 培 经 典 方法 。 公 式 如 下 : 


的 
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求解 彰 微 分 方程 初 值 问题 的 方法 有 很 多 ,这 里 只 介绍 者 名 的 龙 格 - 库 塔 (Rung-Kutta) 方 


ya 二 十 (Ki 2K, + 2K, 4 Ki) 


Ks = /> + hk sn 二 a 


Kk, = /> 二 shK: sn 十- a 


K, = fly, hK, ,zh) 


以 上 方法 有 时 何 称 为 RK4 方法 。 这 一 方法 较 何 单 , 当 及 足够 小 时 ,精度 也 足够 ,是 常见 


-种 微分 方程 初 值 方法 。 


【 例 14-11】 用 经 典 的 Rung-Kutta 方法 计算 下 列 微 分 方程 。 
P 一 一 y 十 zz 十 1 zzE[L0,1] 


y(0) 一 
编写 程序 如 下 : 


MODULE RUNGKT4 

CONTRINS 

SUBROUTINE RKA (FUN, X0,X1L,Y0,N) 

IMPLICIT REAL(A— 2) 

EXTERNAL FUN 

INTEGER N, I 

H= (Xl — XO0)/N 

X= X0 

Y= Y0 

DOI=1,N 
K1 = FUN(Y, xX) 
K2 = FUN(Y + H/2 x* Kl,X+ H/2) 
K3 = FUN(Y + H/2 x* K2,X+ H/2) 
K4 = FUN(Y + H* K3,X+H) 
Y=Y+ (Kl+2x*xK2+2x*K3+rK4) * H/6 
X=X0+IxH 
PRINT 10, X,Y 

ENDDO 

10 FORMAT(5X, 2F12.6) 

END SUBROUTINE RK4 


REAL FUNCTION FUNC(Y, X) 
IMPLICIT NONE 

REAL X,Y 

FUNC= —Y+XxX+]1 

END FUNCTION FUNC 

END MODULE RUNGKT4 
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PROGRAM EXAM14 11 
USE RUNGKT4 

REAL X0, Xl1,Y0 
INTEGER: :N= 20 
XxX0=0 

Xl1=1 

Y0=0 


CALL RKA(FUNC, xX0, xX1, Y0, N) 


END 


程序 运行 结果 如 图 14. 23 所 示 。 
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14.23 例 14-11 运行 结果 


习 吉 14 


1. 分 别 用 二 分 法 和 弦 截 法 求解 方程 z 一 4z 十 1 一 0。 

2. 分 别 用 达 代 法 和 和 牛顿 迭代 法 求解 方程 x 一 4z+ 十 1 二 0。 如 末 达 代 50 次 后 还 ee 
Iz 一 zi| 人 110, 就 认为 不 收 合 , 打 印 相 应 的 信息 。 运 行程 序 并 对 以 上 四 种 方法 进 
比 对 。 


, 
3. 分 别 用 和 矩形 法 和 梯形 法 求 | (1 十 sinz)dz 在 区 间 数 为 n= 二 10、100、1000、5000 时 
的 值 。 
: | 了 a we 和 、 , - 
4. 用 辛 普 生 法 求 | (1 十 sinz)dz 在 区 间 数 为 n 二 10、50、100 时 的 值 。 


5 用 辛 普 生 法 求 | (1 十 @)dz 在 区 间 数 n= 二 2、4、8、16、32、…* 的 值 ,直到 前 后 两 次 求 出 
tage ed Ol pr a -次 运行 程序 时 ， 
的 es 4 为止， 得 序 你 芷 天 云 行 ) 。 
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1 
6. 将 矩阵 | 2 ”1 一 1 | 转换 为 上 三 角 宅 阵 和 下 三 角 和 窍 阵 输出 。 
[一 


7. 用 Gauss-Jordan 法 求 下 列 联 立方 程 组 。 
「 工 十 4y 十 7Yc 王 12 
rr 一 15 
L3z 十 6y 十 8z 一 17 
8. 用 Rung-Kutta 法 计算 下 列 微分 方程 。 


是 a 二 | 
他 


y(l1)=0 


Pb = | 共 | 的 | 实 | 四 |- | 一 | 一 |# | 十 | > | ~]| 尼 | 中 | 后 | 中 | 去 | 中 | 昌 | 术 | 上 富 | | Vi A 六 iQ 


Si@ 局 oF jo 
计 


ASCII 值 


050 

051 

052 

053 

054 

055 
6 
7 
8 
9 

060 

061 

062 
3 
0 

065 

066 

O67 


ASCII 码 字 竺 编 石 
符 


| 
S$? 
”=.=.。。 
I 
| 

一 > 

< 一 
| 
A 

space 


ASCII 值 
000 
001 
002 
003 
004 
005 
006 
O07 
008 
009 
010 
011 
012 
013 
014 
015 
016 
O17 
018 
019 
020 
0z1 
022 
023 
024 
025 
026 
O27 
028 
029 
030 
031 
032 
033 
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续 表 


iss|oo|m|c | I 。 . | ， Jy | 
-| ||| 一 


Sljolaoolol-3l> Ew ao oolsl:sjsligjololw o-ool:jolg| 


让 
1 
L 3 | LD 
| 站 


130 
131 
132 
133 
134 
135 
136 
131 
138 
139 
140 
141 
142 
4 
144 
145 
146 
147 
148 
149 


ASCII 值 
121 
122 
123 
124 
125 


字 符 
0 
S 
WwW 
入 
¥ 
C 
h 
k 


ASCII 值 
068 
069 
070 
O71 
072 
073 
074 
079 
076 
O77 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
O97 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
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DO 6 | | 所 | 四 | 后 | 的 | 二 | 愉 | 的 | 机 | 挟 | 王 | 反 | 晤 | 二 | 
> | ir AdilIalIqdlIaAlIdlIAlIdlIAlIAdlIAlm mm|mm|m 


Ft noc. 


-|| | EC] | 台 EE | || | C 


204 
205 
208 
209 
210 
216 
211 
L390 


ASCII 值 


符 


6 
‘ 
) 


. 
i 


ASCII 值 
152 
133 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
19 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
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1. 数值 运算 函数 


ABS(x) (IABS,DABS,CABS) 
AIMAG(c) 

AINT(r| ,kind |) (DINT) 
ANINT(r[ ,kind]) (DNINT) 
CEILING(r) 


CMPLX(a,b| ,kind |) 
CONJG(c) 
DBLE(num) 


DIM(a,b) 
EXPONENT(x) 


FLOOR(r) 


FRACTION(x) 


INT(iL , kind]) (IFIX ,IDINT) 


LOGICAL(al ,kind |) 


MAX(a,b,.) 
MIN(a,b,*) 


MODULOC [| b) 


FORTRAN 库 函 数 


返回 参数 x 的 绝对 值 整 型 , 实 型 , 复 型 | 整 型 , 实 型 , 复 型 


返回 复数 c 的 虚 部 实 型 
返回 舍 去 小 数 部 分 后 的 参数 值 ”| 实 型 | 实 型 
返回 最 接近 参数 + 的 整数 值 实 型 
返回 一 个 等 于 或 大 于 + 的 最 小 整数 整 型 
返回 以 a 值 为 实 部 、b 值 为 虚 部 的 
复数 

返回 c 的 共 斩 复 数 


把 参数 转换 成 双 精 度 浮 点 数 


a 一 b>0 时 返回 a 一 b, 否 则 返回 0 
返回 使 用 nx 2* 的 模式 来 表示 浮 点 


度 实 型 , 复 型 


把 参数 转换 成 整 型 数 , 小 数 部 分 无 

条 件 舍 去 

转换 不 同类 型 的 LOGICAL 变量 ， 

把 a 变量 转换 成 赋值 kind 类 型 的 | 人 逻辑 值 
LOGICAL 变量 

返回 最 大 的 参数 什 

返回 最 小 的 参数 值 

计算 a/b 的 余数 。 当 参数 为 浮 点 

数 时 ,返回 (a 一 int(a/b)) * b) 的 值 


同意 计算 a/b 的 余数 。 使 用 和 
MOD 不 同 的 公式 来 计算 。 参 数 为 
整数 时 ,返回 a 一 FLOOR (REAL 
(a)/REAL(b)) * b, 参 数 为 浮 点 数 
时 返回 a 一 FLOOR(a/b) *b 
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b 二 0.0 时 ,返回 大 于 a 的 最 小 浮 点 
数值 。b 一 0.0 时 ,返回 小 于 a 的 最 


会 有 误差 ,这 个 函数 可 用 来 查看 政 
正 的 保存 数值 


NINT(al ,kind |) (DNINT) 
REAL(i) 
RRSPACING(x) 
SCALE(x,1) 
SET_ EXPONENT(x,n) 
SIGN(a,b) (ISIGN , DSIGN) 回 一 ABSCa) 
返回 x 值 做 能 接受 的 最 小 变化 值 。 
因为 浮 点 数 的 有 效 位 数 是 有 限 的 ， 
它 没 有 办 法 真正 保存 连续 的 数值 。 实 型 
这 个 函数 会 返回 用 浮 点 数 保 存 x 
值 时 所 能 接受 的 最 小 数值 间隔 


| source 参数 / 数据 
把 source 参数 中 的 内 存 数据 直接 source 任意 类 


SPACING' x) 


1 参数 mold 所 使 ， 帮主 ， 
TRANSFER (source, mold| ,size |) 惟 换 成 z Oo 型 ,mold 任意 类 


以 用 来 赋值 要 转换 多 少 笔 型 ,size 整 型 


2. 数学 函数 


函数 
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ACOS() (DACOS) 计算 ARCCOSINE() 实 型 
ASIN(r) (DASIN) 计算 ARCSINECr) 实 型 


ATAN(r) (DATAN) 计算 ARCTANGENT(7) 实 型 
ATAN2(a,b) (DATAN2) 计算 ARCTANGENT (a/b) 实 型 
COSCx)(CCOS,DCOS) 实 实 型 , 复 型 
COSH(r) (DCOSH) 计算 HYPERBOLIC COSINE(x) 实 型 
EXP(n) (CEXP,DEXP) 计算 自然 对 数 er 的 值 实 型 , 复 型 实 型 , 复 型 
LOG(x) (ALOG,DLOG,CLOG) | 计算 以 自然 对 数 e 为 底 的 对 数值 | 实 型 , 复 : 实 型 , 复 型 


LOG10(20 (ALOG10, DLOG10, 
计算 以 10- 对 : 三 字 型 


SIN(x) (CSIN ,DSIN) 计算 SINE(x) 实 型 , 复 型 


SINH(r) (DSINH) 计算 HYPERBOLIC SINE(x) 实 型 


SQRT(x) (CSQRT,DSQRT) | 计算 x 的 开平 方 值 型 ， 实 型 , 复 型 


TAN(Gr) (DTAN) 计算 TANGENT() 实 型 


TANH(r) (DTANH) 计算 HYPERBOLIC TANGENT(r) | 实 型 


330 


FORTRAN 语言 程序 设计 一 一 FORTRANSS5 


3. 字符 函数 
函 数 
ACHAR(1) 


ADJUSTL4s) 
ADJUSTR'(s) 


IACHAR(c) 


ICHAR(c) 


INDEX( ds bl back | ) 


LEN(s) 
LEN TRIM'(s) 


LGE(a,b) 
LGT(a,b) 
LLE'(a,b) 
LLT'(a,b) 
REPEAT'(s,i) 


SCAN(a, bl ,back |) 


TRIM(s) 


VERIFY (string ,set| ,back |) 


返回 计算 机 所 使 用 的 字 集 表 上 编 
号 为 i 的 字符 。PC 上 使 用 的 字 集 
表 为 ASCII 表 , 所 以 在 PC 上 
CHAR 函数 与 ACHAR 函数 效果 
相同 


返回 字符 c 所 代表 的 ASCII 码 
返回 字符 c 在 计算 机 所 使 用 的 字 


集 表 中 的 编号 。 在 PC 上 ICHAR | 字符 型 


与 IACHAR 效果 相同 
返回 子 字 符 串 b 在 母 字 符 串 a 中 
第 一 次 出 现 的 位 置 。 如 果 第 3 个 
参数 back 给 定 真 值 ,代表 从 后 面 
开始 搜索 ,返回 子 字 符 串 b 在 母 字 
和 人行 串 a 中 最 后 一 次 出 现 的 位 置 
返回 字符 串 s 的 长 度 

返回 字符 串 s 中 除去 字 尾 空格 符 
后 的 长 度 

判断 两 个 字符 串 a 宇 b 是 否 成 立 
判断 两 个 字符 串 a 二 b 是 否 成 立 
判断 两 个 字符 串 a 委 b 是 否 成 立 
判断 两 个 字符 串 a 二 b 是 否 成 立 
返回 一 个 重复 1 次 s 的 字符 串 
返回 把 字符 串 b 所 包含 的 任意 到 
行 在 字符 串 a 中 第 一 次 出 现 的 位 
置 。 如 果 c 有 给 定 真 值 时 , 则 返回 
最 后 出 现 的 位 置 

返回 把 字符 串 s 尾部 的 空格 符 除 
去 后 的 字符 串 

检查 在 宇 符 串 string 中 有 设 有 使 
用 罕 符 串 set 中 的 任何 字符 ,返回 
宇 符 串 string 中 第 一 个 出 现 不 属 
于 字符 串 set 字符 的 位 置 。 如 采 
back 有 给 定 真 全, 则 返回 最 后 一 次 


出 现 的 位 置 


字符 型 


整 型 


整 型 


ab 字符 型 ,back 


ab 字符 型 ,back 
逻辑 型 


string、set 字符 


字符 型 


整 型 


字符 开 


整 型 
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4. 数组 图 数 
数组 函数 中 所 使 用 到 的 名 词 表 
Array 指 任 何 维 数 的 数组 
Vector 指 一 维 数 组 
Matrix 指 二 维 数组 
Dim 指数 组 的 维 数 ,是 一 个 整数 
Mask 指数 组 的 逻辑 运算 
[ 括号 中 表示 可 忽略 的 参数 


六 西数 信 关 型 


对 数组 做 逻辑 判断 ,如 条 每 个 元 素 


ALL(mask[ ,dim |) 都 合乎 条 件 就 返回 真 值 ,否则 返回 
假 值 
本 检查 一 个 可 变 大 小 的 数组 是 否 已 
ALLOCATED(array) 经 声明 大 小 
ANY(mask| ,dim |) 


ALL 很 类 似 , 只 差 在 判断 时 所 使 用 
的 条 件 由 “全 部 ” 改 成 “任何 ” 

对 数组 做 逻辑 判断 ,返回 合乎 条 件 
的 元 素数 目 

数组 的 元 素 值 会 以 某 一 维 为 基准 
来 循环 交换 内 容 。shift 表示 平移 
的 量 值 ,dim 表示 针对 这 一 维 来 做 


COUNT(mask| ,dim |) 


对 数组 做 逻辑 判断 ,只 要 有 一 个 元 
合 平分 就 返 0 ， » 一 | 
素 合 乎 条 件 就 返回 真 值 。 用 法 与 逻辑 信 


CSHIFT(array, shift| ,dim |) Shift 整 型 


DOT PRODUCT (vector _ a， 

vector b) 类 型 

DPROD(vector a,vector b) ead EE 双 精 度 浮 点 数 
把 数组 以 某 个 维 数 为 基础 ,移动 数 

EOSHIFT(array,; shift| , boundary | 组 中 的 元 素 。boundary 有 值 时 , 移 


数组 


| ,dim |) 动 后 剩 下 的 位 置 会 设置 成 boundary 
的 值 
LBOUND(array [,dim]) 返回 数组 声明 时 的 下 限 值 | 整 型 
对 两 个 二 维 数 组 所 存放 的 矩阵 内 
MATMUL (matrix_a,matrix_b) | 容 做 矩阵 相 乘 运算 ,返回 值 是 二 维 二 维 数组 
数组 
找 出 数组 最 大 值 的 所 在 位 置 ,返回 


值 可 能 是 整数 或 是 整数 数组 。 当 
MAXLOC(array[ , dim , maskj]) | 数组 array 为 一 维 时 ,返回 一 个 整 整 型 

数 ; 当 数 组 为 n 维 数组 时 ,返回 大 

小 为 n 的 一 维 数组 
MAXVAL (array[ ,dimj[,mask]) | 返回 数组 中 的 最 大 元 素 值 | 数组 类 型 
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续 表 


true_array ,false_array 大 小 要 完全 

相同 ,merge 会 根据 mask 运算 的 

结果 来 决定 要 取 true_array 或 

false_array 的 值 到 返回 的 矩阵 当 数组 

中 ,mask 运算 中 某 一 位 置 为 " 真 ” 

时 ,会 填 人 true_array 的 值 ,为 “ 否 ” 

时 ,会 填 人 false_array 的 值 
MINLOC (array[ ,dimj[,mask]) | 返回 数组 中 最 小 元 素 的 位 置 ”| 整 型 
MINVAL (array| ,mask |) 返回 数组 中 最 小 元 素 的 值 有 整 型 

会 根据 数组 在 内 存 中 的 排列 顺序 ， 

按照 mask 运算 的 逻辑 值 ,把 判断 

成 立 的 数值 从 array 中 取出 , 放 到 

返回 值 的 一 维 数组 中 。 当 vector|array 任何 类 型 
没有 输入 时 ,返回 值 的 数组 大 小 为 | 的 数组 
array 中 条 件 成 立 的 数值 数目 。 
vector 有 输入 时 ,返回 值 的 数组 大 
小 与 VectOT 相 同 
返回 数组 中 所 有 元 素 的 相 乘 值 “| | 整 型 ,数组 
通过 shape 的 设置 ,把 一 串 数 据 “ 整 
型 "好 后 ,再 传 给 一 个 数组 。 这 个 
图 数 用 来 转换 不 同类 型 的 数组 数 
RESHAPE(data,shape) 据 ,参数 data 会 根据 数组 在 内 存 中 数组 

的 排列 顺序 ,把 它 的 内 容 视 为 一 长 

串 数 字 。 参 数 shape 可 以 把 这 组 数 

字数 据 视 为 它 所 设置 的 数组 类 型 

返回 数组 的 维 数 及 大 小 ,假设 
SHAPE(array) array 为 n 维 数组 ,返回 值 为 大 小 数组 

为 n 的 一 维 数组 

把 一 个 数组 复制 到 比 目 己 高 一 维 

的 数组 中 ,复制 次 数 由 ncopies 来 

决定 。 而 复制 的 “基础 位 置 ? 则 由 

dim 来 决定 要 在 哪 一 维 。 硅 参数 | source 任意 类 型 
SPREAD(source,dim,ncopies) | source 为 一 个 数值 , 则 返回 值 是 大 | 数组 ,dim、ncopies | 数 

小 为 ncopies 的 一 维 数组 。 寿 参数 | 整 型 

source 是 大 小 为 (di ,ds ，……，,d,) 的 

数组 , 则 结果 是 大 小 为 (di，,d;，*…， 

dum—1 » ncOples, daim »*** ,dh ) 的 数组 


MERGE (true _ array, false _ 
array| ,mask |) 


与 输入 的 数组 
相同 


PACK (array, mask| ,vector |) 


下 RODUCTI arrayl| ' dim || ' mask | ) 


SUM(array[ ,dim][,mask]) ”| 计算 数组 元 素 的 总 和 ”| 数组 类 型 
TRANSPOSE(matrix) 返回 一 个 转 置 矩阵 |= 维 数组 


UBOUND(array[ ,dim]) 返回 数组 声明 时 的 下 限 值 ”| 整 型 ,数组 


UNPACK(vector, mask ,field) 


5. 查询 状态 困 数 


果 数 


ASSOCIATED (pointer | ,target |) 


BIT_SIZE() 


DIGITS(r) 


EPSILON(r) 


HUGE'(x) 

KIND(x) 
MAXEXPONENT'(x) 
MINEXPONENT(x) 
PRECISION(x) 


PRESENT(x) 


RADIX(x) 


RANGE(x) 
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根据 逻辑 运算 的 结果 ,返回 一 个 变 
型 的 多 维 数组 。 结 果 会 根据 在 内 
存 中 的 顺序 ,如 果 人 逻辑 为 真 ,会 填 
入 vector 的 值 ,否则 就 填 入 field field 任意 类 型 


的 值 。 

unpack 困 数 刚好 与 pack 相反 , 它 
是 用 来 把 一 维 数 组 转换 成 多 维 
数组 


检查 指针 是 否 已 经 设置 目标 。 
target 有 输入 时 , 则 检查 pointer 是 
否 指 问 target 变量 


返回 参数 i 占 小 bits 
返 加 数 i 占 了 多 少 bit | 
空间 

i 


返回 浮上 点 数 z 使 用 多 少 bits 来 记录 
“数字 ”的 部 分 

参数 r 的 数值 不 影响 结果 ,只 有 参 
数 f 的 类 型 会 影 啊 结果 。 它 会 返回 
spacing(1.0 4) 或 spacing(1.0 8) 
的 值 , 输 入 单 精 度 浮 点 数 时 ,返回 | 实 : 
spacing(1.0_4), 也 就 是 当 变 量 为 
1.0 时 ,所 能 计算 的 最 小 数字 间隔 
大 小 

返回 参数 x 的 类 型 所 能 记录 的 最 
大 数值 

返回 参数 声明 时 使 用 的 kind 值 整 型 


返回 浮 点 数 + 所 能 接受 ,记录 数值 a 


中 最 大 2 的 i 值 


返回 浮 点 数 + 所 能 接受 、 记 录 数 值 | 
TY 各 


返回 参数 类 型 的 有 效 位 数 范 围 


在 函数 中 检查 茶 个 参数 是 否 有 传 


返回 保存 参数 x 所 使 用 的 数字 进 

制 。 通 常 的 返回 值 是 2, 代 表 二 进 | 整 型 , 实 型 整 弄 
返回 参数 类 型 所 能 保存 的 最 大 值 

域 范围 ,返回 nm 值 代表 10n 


整 型 , 实 型 , 复 型 | 整 型 
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SELECTED INT_KIND(i) 


SELECTED REAL KIND(p.7) 


用 的 kind 值 


有 返回 参数 类 型 所 能 保存 的 最 小 的 | ，， 


画 。 站 本 数值 关 型 


BIT SIZE(Gi) 返回 参数 i 所 占用 的 内 存 位 数 整 型 
检查 整数 i 以 二 进 制 保存 时 第 pos oe 
BTE | ls s) J 2 L . 


IAND(a,b) 对 a.,b 做 二 进 制 的 逻辑 AND 运算 整 型 


返回 把 整数 1i 值 以 二 进 制 保存 时 的 

I R ls 3, | | 2 L | 必 
把 整数 i 值 以 二 进 制 保存 时 的 第 

IBITS(i, pos,n) 天 贡 

en pos 一 pos 十 n 位 取出 后 所 代表 的 值 a 

返回 把 整数 i 值 以 二 进 制 保 存 时 的 ] 

i ET ls . . L : 了 3 

返回 对 ab 做 二 进 制 异 或 运算 后 整 开 Pe 
的 值 

人 返回 对 a\b 做 二 进 制 OR 运算 后 整 开 回 玫 | 
的 值 
返回 把 整数 a 以 二 进 制 方法 右 移 b 

ISHFT'(a,t 束 和 天 整 型 
返回 把 整数 a 以 二 进 制 方法 右 移 b 

ISHFTC(a, bl ,size]) 位 后 的 数值 , 右 移出 去 的 高 位 数 会 | 整 型 整 型 


循环 放 回 低位 中 

这 是 子 程序 ,不 是 图 数 ,to 是 返回 

的 参数 。 取 出 整数 from 中 第 
frompos 一 frompos 十 len 位 的 值 , 重 | 整 型 
新 设置 整数 to 中 第 topos 一 topos 十 

len 位 的 值 


MVBITS (from, frompos, len, 


to ,topos) 


返回 把 整数 i 的 二 进 制 值 做 0.1 反 | 
相 后 的 结果 


NOT(D) 


7. 其 他 函数 
靖 数 


DATA AND TIMEt(data, time， 


zoneyvalues) 


RANDOM_LNUMBER(T) 


RANDOM _ SEED ([ size, put, 
get |) 


SYSTEM CLOCK(c,cr,cm) 
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这 是 子 程序 ,不 是 函数 。 把 现在 的 
时 间 返 回 到 参数 中 


这 是 子 程序 ,不 是 函数 。 生 成 一 个 


data、time、zone 
字符 型 ,values 整 


0 到 1 之 间 的 随机 数值 ,在 参数 rz| 实 : 


中 返回 
组 来 返回 目前 所 使 用 来 局 动 随机 


数 的 “种 子 ” 数 值 ,或 用 put 数组 来 
设置 新 的 随机 数 , 局 动 “种 子 ” 数 值 
这 是 库存 子 程序 ,不 是 库存 图 数 。 
c 会 返回 程序 执行 到 目前 为 止 的 处 
理 需 clock 数 ,cr 会 返回 处 理 肯 每 | 整 : 
秒 的 clock 数 ,cm 会 返回 c 所 能 保 
存 的 最 大 值 
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